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SGINDEX - AN OS/360 SYSTEM GENERATION 
CROSS-REFERENCE INDEX 


INTRODUCTION 


In almost all kinds of system programming under OS/360 it is necessary to 
extract information from the sysgen listing.* This is true whether one is 
modifying OS, applying PTF’s, or writing subsystems which interface with OS. 
Finding needed information was a long and painstaking process of manually 
paging through the sysgen output. A need was present for an easy-to-use but 
comprehensive cross-reference index of the sysgen. 

SGINDEX is a program which collects key data from the Stage II input for an 
OS/360 sysgen, sorts it, and prints a formatted listing of the index entries col- 
lected. Several optional features have been included in SGINDEX which can be 
requested via the EXEC card parameter. 

SGINDEX uses a region of about 200K in an MVT environment, although this may 
be decreased by compiling with GPT=JE). The program is written in PL/ 1 and re- 
quires SYS1.PL1LIB for linkage editing. Since the OS sort package is used, 
SYS1.SORTLIB is required at run time. Using OPT=l, a large release 19 sysgen 
was run in slightly over 3 minutes on a 360/75 J. 


SGINDEX OUTPUT 


The index entries collected are of the form: 

ITEM LIB USE STEP PAGE CARD 

ITEM is the actual index item extracted from the SYSGEN stage II input deck. 

LIB is the library in which ITEM occurs, and is present on certain items only. 

USE is a fixed term describing the environment in which the item was found. 

STEP is the stepname of the step in which the item was found, PAGE is the page 
of the listing on which it appears, and CARD is the card number listed in col- 
umns 73-80. 


*The sysgen listing is the output of the programs run to create a new operating system. The 
reader is assumed to be familiar with the generating of Operating System/360. 


The following entries are extracted: 

— The stepname of each SYSGEN step appears with the USE "STEPNAME". 

— The program named in the "EXEC PGM=" parameter appears with the 

USE "EXEC". 

— If the program is "ASMBLR", then: 

(1) The member listed on the "//SYSPUNCH DD" card appears with 
USE "SYSPUNCH" and with its dsname as LIB. 

(2) Each macro evoked appears with the USE "MACRO". 

— If the program is "IEWL", then: 

(1) The load module (s) created appear with USE "LINK" and the 
SYSLMOD dsname as LIB. 

(2) Alias and entry names appear with USE "ALIAS" and "ENTRY" 
respectively and the SYSLMOD dsname as LIB. 

(3) Include card members appear as USE "INCLUDE" with the ddname 
operand as T B. 

(4) Change card new-names appear as USE "CHANGE" with old-names 
as "LIB". 

(5) Replace card members appear as USE "REPLACE". 

— If the program is "IEBCOPY", then: 

(1) Sending library name appears as USE "COPYFROM". 

(2) Moved member names appear as USE "COPYTO" with receiving 
library dsname as LIB. 

(3) Exclude card members appear as USE "EXCLUDE" with receiving 
library dsname as LIB. 

The following JCL is required. 

// JOB 

JOB card as required by installation. 
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//STEPNAME EXEC PGM=SGINDEX, REGION* ,PARM= 

EXEC card; SGINDEX should run in about 220K. PARM is used to select 
run options— see discussion below. 

//STEPLIB DD DSN= ,DISP=SHR 

If SGINDEX is not in a LINK LIB, use a STEPLIB card to get it (or execute 
in a compile-and-go environment). 

//SYSOUT DD SYSOUT=A (or ’’DUMMY”) 

Data set to receive SORT/MERGE messages. 

//INDEX DD SYSOUT=A,DCB=(BLKSIZE=7260,LRECL=12fl,RECFM=FBA) 

Data set to receive printed listing and index; blocksize may be varied. 

//NEWDECK DD SYSOUT=B (or other data set) 

Data set to receive modified copy of stage II deck. May be on disk or 
DUMMY also. 

//SYSPRINT DD SYSOUT=A,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=629) 
Data set to receive PL/I error messages. 

//SORTLIB DD DSN=SYSl.SORTLIB,DISP=SHR 
Standard SORT library. 

//SORTWKOl DD UNIT=2314,SPACE=(CYL,3„CONTIG) 

//SORTWK02 DD UNIT*2314,SPACE=(CYL,3„CONTIG) t SEP=SORTWK01 

//SORTWK03 DD UNIT=(2314,SEP=SORTWK01),SPACE=(CYL,3„CONTIG), 

// SEP=SORTWK02 

//SORTWK04 DD UNIT=(2314,SEP=SORTWK02),SPACE=(CYL,3„CONTIG), 

// SE P=SORTWK01 

//SORTWK05 DD UNIT=(2314,SEP=(SORTWK01,SORTWK03)), 

// SPACE=(CYL,3,,CONTIG) > SEP=SORTWK02 

//SORTWK06 DD UNIT=(2314,SEP=(SORTWK02,SORTWK04)), 

// SPACE=(CYL,3,,CONTIG),SEP=SORTWK01 


Sort work data sets; these are listed only as guides which worked well at 
the author's installation. See SORT/MERGE manual for further dis- 
cussion. 

//SYSIN DD * (or point to data set) 

Data set containing stage I output (stage II input) deck. 

The format of the EXEC PGM=SGINDEX PARM is: 

PARM=(LLL, RRRRRRR, OOCKXK), NNNNN ,111... I, SSS...S) 

LLL is an integer such that 9 < LLL < 32767. The listing and index will be 
printed with LLL lines per page (including headings and blank lines). If 
omitted or invalid, LLL will default to 60. 

RRRRRRR is the release number. If present it will appear at the top of each 
page of the listing and index. The first two characters, if numeric, will 
appear as the two low-order digits of the cards listed and punched on 
NEWDECK, unless NNNNN is "NOSEQ". 

OOOOOO is "OBJDEL" or omitted. If present it indicates that any object module 
cards in the input deck (SYSIN) are to be deleted. This allows one to include 
in his stage I input cards of the form "SYSGEN-MACRO-NAME EQU *" 
which will cause the assembler to provide in its standard cross reference 
listing an index of the stage I macros by line number. However, the as- 
sembler will also output an ESD and an END card with the stage I output; 
"OBJDEL" will delete these. 

NNNNN is "NOSEQ" or omitted. If present, columns 73-80 of the input will be 
output to the listing and to NEWDECK unaltered. If omitted, sequence num- 
bers will be generated beginning with 10000+RR (where RR is the first two 
digits of RRRRRRR, above, if numeric; else RR-00), and incrementing by 
10000. 

m...I is a string of characters which will appear on listing and index page head- 
ings. It may be up to 16 characters long. 

SSS...S is a string of up to 57 characters. If present the first card image of 
every "//SYSPRINT DD" statement will have its operand field replaced 
with the character string entered. As of this writing, this string is always 
the space allocation; this allows the user to replace the SYSGEN space al- 
location for SYSPRINT. If omitted, no SYSPRINT modifications are made. 
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The parameters are positional, with omitted parameters indicated by comma 
only, and with trailing commas optional. Spaces will not delimit any parameter 
to SGINDEX, but if any parameter contains spaces or any other special charac- 
ter, it must be enclosed in primes ('). For example: 

//INDEX19 EXEC PGM=SGINDEX,REGION=220K.PARM=(,'19.6',OBJDEL, 

// ,’360 75JVSPACE=(121,(300,60)), *** REPLACED ***») 

requests 60 lines per page, pages headed with "RELEASE 19. 6 M and "360 75J", 
object cards deleted, cards resequenced beginning with 00010019, and SYSPRINT 
dd cards replaced with 

//SYSPRINT DD SPACE=(121,(300,60)), *** REPLACED *** 

Since the release number contained a period, it was placed within primes. Note 
that if SSS...S is included, it should include a trailing comma to continue the 
SYSPRINT cards. Commas in any other parameter are treated as delimiters. 
This means that the second card above could have been specified as 

// *,360 75J,SPACE=(121, (300,60)), *** REPLACED ***’) 

with identical results. 


INSTALLING SGINDEX 


Normal distribution medium for SGINDEX is a 9-track, 800 bpi unlabelled dis- 
tribution tape reel (DTR). It contains two data sets— the PL/1 source of 
SGINDEX and a compiled object module. Each data set contains 80-byte records, 
blocked to 2000 bytes. 

When compiling SGINDEX, include the parameter SM=(2,72,I) in the compiler 
PARM field. 

SGINDEX includes a PL/l-coded procedure "VERIFY” which is a built-in 
function in PL/l version 5. If compiled on a version 5 compiler, the procedure 
and its declaration should be removed to allow the built-in version to be utilized. 


SGINDEX PROGRAM LOGIC 


Internally, SGINDEX is written utilizing PL/I multitasking. The mother task 
scans the input deck for the needed index entries. The daughter is attached 


I 

initially and it invokes the sort routine and points to the procedure INDEX_ 

ENTHY — SENDER as the routine to provide sort records. When it is entered, it 

waits for the mother task to produce a record whereupon it copies the record 

into its area, posts the mother to continue, and returns the record to the sort 

routine. All of this allows the mother's OUTPUT_SORT__KEY procedure to be 

called many levels down from many places and still be able to pass the record 

tc the sorter and return to its caller. Each procedure in SGINDEX is listed * 

below with its function. 


SYSGE N_IND EX_C RE ATION: This is the main block of the program. It pro- 
cesses the EXEC PGM=SGINDEX card parm, setting switches for the various 
options requested and saving the fields specified. The data sets are opened. 
SORT_INTERFACE is attached as a subtask. A loop is then entered to process 
each step of the stage n input deck. READER is used to fetch the next EXEC 
card. The stepname and program name are passed as entries to the sorter. 
LINK_PROCESS, ASMBLR_PROCE8S, or COPY_PROCESS are evoked if the 
program is IEWL, ASMBLR, or IEBCOPY. When the input ends, RECORD^ 
GENERATED is marked complete with a status of 4 and a WAIT occurs on 
INDEX .PRINTED which is posted when the subtask ends. SGINDEX then exits. 

UNK.PROCESS: This block extracts the SYSLMOD library and member names, 
outputs index entries for most linkage editor control cards, and exits at the end 
of the control card data set. 

ASMBLR_PROCESS: This block extracts the SYSPUNCH dsname and member 
to output as an index entry, loops to output each macro instruction as an index 
entry, and exits at end of control card data set. 

COPY_PROCESS: This block scans the dsnames of the SYSUT1 and SYSUT2 
cards, outputs index entries for each member copied, cleans up, and exits. 

SYSUT1JSET: This short block outputs an index entry for USE "COPYFROM" 
whether item came from SYSUT1 dd card or INDD= in copy control card. 

OUTPUT_ALL_KEYS: This block gets fields from the string and outputs index 
entries for those items, looping as long as the fields are delimited with commas. 

OUTPUTJSORT_KEYS: This short block passes the index entry to SORT INTER- 
FACE and keeps count. 

READER: This block reads SYSGEN stage II records, inserting sequence num- 
bers and replacing SYSPRINT cards if requested, and echoing them on the 
listing. This is repeated until a card of the type requested is read. Control is 
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then returned with the card's column? 171 in CARD, column 72 in CONTINU- 
ATION_CGLUMN, EXEC_CARD set to 'l'B If an exec card was read, and JCL 
set to 'l'B if any "//" card was read. 

FIELDJ3CAN: This block scans for a field within the character string STRING. 
STRING normally contains part (or all) of the card image currently being 
processed. If SPACE_BYPASS is set, non-blanks before the first blank and 
then blanks up to the next non-blank are ignored. If EQUAL_SCAN_REQUEST 
is set, more characters are discarded until an equal sign is found. The field 
returned is the string beginning at the place indicated above, and terminating 
with a comma, space, or open or close parenthesis. (If the string begins with 
any of these delimiters, they are discarded.) The resulting string is returned 
in FIELD. The delimiting character is returned in DELIMITER. Characters 
processed are removed from STRING up to but excluding the delimiter. 

JCLJ5CAN: This block will search through DD cards until the card whose name 
(or partial name) is stored in DDNAME is found. The DSNAME= paiL~.net er is 
then found and the second level of the data set name is extracted and returned 
in DSNAME. If a member name is present, it is returned in MEMBER. 

SORTJNTERFACE: This procedure is attached as a subtask. It evokes the sort 
routine which enters INDEX_ENTRYJSENDER to fetch each of the sort records 
collected by the mother task. Sort then enters INDEX_PRINTER to print each 
entry. When sort returns we finish off the printout and exit. 

INDEX_ENTRYJSENDER: This block is entered as sort exit point 15. It waits 
for the mother task to complete the next record. When the record is copied out 
the mother is signaled to process another and we return the record tc SORT/ 
MERGE. When all records have been passed, preparations are made to print 
and the final return is made. 

INDEX_PRENTER: This block is called by the sort routine as exit point 35. It 
prints the page in a two-column format. Left-hand entries are saved until the 
corresponding right-hand entries are received, at which time both are printed. 

PRINTJTHUMBJTAB: This block prints the thumb tabs for the first and last 
index items on the page at the bottom of the page. 

VERIFY: This block simulates the "VERIFY” function which is a built-in func- 
tion with PL/I version 5 (release 19). It is included here for running under 
release 18 and should be removed later to use the built-in version. 
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//I NOE A UD SISUUT*A ( UCri* lULK 3 IAt- 7 ri*U,LMACL- 1 * 1 , RICIH-rMA) 

DATA SAT TO MAC El A A PMIAIED LIST 1 MO V 0 UD 88 G 00 
AMD IMOAA ; riLOtlASISA RAI «/00 089000 

HA VAHIED. 

//EAMDECK DO SISOaT-tf (OM Ofi'EI DATA SAT) 

DATA SET TO MIC All A MOD (PI 3 D 
CUPS OP SIAOA It DECK. 

RAT HA OR DISK OR Drilll ALSO. 9/00099000 

//SIbPmX NT DD SISOUI*A,DCH- ( ISC'S- V EA, LRECL- 1 25 , MLNSUf-kri 9 ) E/ 0009500 G 

DATA SET TO MAc'AIVE PL/I ARMOR «/(J 009*800 

•/00097000 


E/JOa7ROOO 

•/oao790oo 

vaoDHJOoo 

•/aaamoaa 

•/aaoriSoou 

•/oaoRioaa 

•/aooriHaao 

•/ouqrsooo 

•/aODHEDOO 

00087080 


N/0UU90000 
•/O 009 1000 
•/O 0091000 
*/0 0093000 


VO 0098000 



/• 


■5GIE0EA » 


• E/00001000 


SI HI LEVEL MAST 


/• ■ • • • • < 1 1 • • a • t • c • a e/00099000 

/• E/OOIOOOOO 

/* flESSLGES. E/00101000 

/• //SOMILIH DD DSE-SISI.SOETLIR.DISP-SHE E/00101000 

/* STANDARD SORT LINEAR!. E/00103000 

/« //SbriTriKOI DD UNIT- EJ 18, SPACE- (CIL, 3, ,COETIG) E/0010U800 

/• //SOriTriKOE DD UEIT-2319,SPACE«(CIL,3,,C0EtlG) ,SAP-S0riIriK01 E/00105000 

/• / /SCrilMKOS DD DRIT- (2319,SEP*SORTEK01) .SPACE* (CIL,3 > ,COHIIO) , E/OOIOHUOO 

/• // SEP-SORTmEOE e/00107000 

/• //SOriTriKOE DO UNIT- (2319, SEP-SOEIMK02) .SPACE- (CIL, 3,, COETIG) , e/00108000 

/* // SMP-SORTHR01 E/00109000 

/• //SUETriKOS DD UNIT* (E319.SAP* (SOETMKO 1, SORTMK03) ) , E/00110000 

/* // SPACE- (Cl L, 3, .CUHPIO) .SEP-SOKTMKOE E/00111000 

/• //SOriTriKOE DO OMIT- (E319, SEP- (SOriTriKOE, S0RTHE08) ) , E/00112000 

/* // SPACE- (Cl L, 3, , COR TIO) , SAP-SURTMK0 1 E/00113000 

/* SORT MORA DATA SETS) THESE ARE E/00119000 

/* LISTED ORLI AS ODIOES MHICri */OOmODO 

/* riORKAD HALL AT TK AUTHOR'S E/OOIlHOOO 

/* IRSTALLAT10R. S<. HT/RAR8EE/001 1 7000 

/* HAMUAL TOR PORTHt ,CUS- E/00 11 8000 

/* SION. E/00119000 

/• //SISIM DO E (OM POINT TO DATA SET) E/00110000 

/* DATA SET CONTAINING STAGE I OUTPUT E/001E1000 

/* (STAGE II IE POT) DECK. e/00182000 

<* E/00113000 

/• THE rOriRAI OP THE EAEC P0R-8GIRDEK PARR ISl E/001I9000 

/• E/001E5000 

/« parr-(lll,hrrrrah,uooooo,rrnhr,iii...i,sss...s) */ooiilooo 

/ * , . . E/001E7000 

-LL IS A INTEGER SUCH THAT 9 < LLL < 3E7L7. THE LISTING AND E/001E3000 

/* INOEA MILL HE PMINTED ril'TH ILL LINES PER PAGE (INCLUDING E/001E9000 

/• riEADIRGS AND HLANK LINES). IT ORITTEU OR INVALID, LcL MILL E/00130000 

/E DEPAULT TO HO. E/00131000 

/• riririririMri IS TUN RELEASE NUSMAH. IP PRESENT IT HILL APPEAR AT THE E/00132000 

/• tup op each pagi or the listing ard irdea. the pirst tno */ooi33ooo 

/* CHARACTERS, IN NORENIC, MILL APPEAR AS THE IMG LOri-ORDE* E/00139000 

/* DIGITS or THE CARDS eISTeD AND PUNCHED ON *REriDECK«, UNLESS E/00139000 

/• NRNNR IS * HUS EG*. E/0013H000 

/• UUOUUU IS "QHJOEL" OR OBITTEO. IP PRESEET IT IEOICATES THAT E/00137000 

/• ARI UriUECT SUDOLE CAROS IN THE INPUT UECK ("3ISIN") ARE TO E/0013ROOO 

/* HE DELETED. THIS ALLONS ORE TO INCLUDE IE HIS STAGE I IEPUT E/00139000 

/* CARDS UP THE PORN "SISGER-HACRU-RArit EyU E* UHICH MILL E/00190UD0 

/• CAUSE IDE ASS ASHLER TO PROVIDE IN IIS STAEDAED CROSS REFER- E/00191000 

/* EACE LISTING AE I HO El UP THE aCAUl 1 HA CM 03 «v HUE MUM It EM. -ynnijjnnn 


/« CAMS alTH THE STAGE I OUTPUT) -ODJDEL- MILL DELETE THESE. E/00198000 
/* MENEM IS "EOSAW* OB ORIIIND. If PRESENT, COLUSriS 73-80 OP TME V00189000 
/* IEPUT MILL 8E OUTPUT 10 THE LISTING AMD TO "HEHDECE* e/ 00198000 
/• OMALIEMEO. ir CHITTED, SEyUEMCA EUHMEMS MILL HE GENERATED E/00197000 
/• E/00198000 
/■ • t t • « < I • • i i • l , , , , , • , , , , , , , , , , , , , , e/00199000 


* 
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/• A 


• 1 li 1 I II M * 


• a/ooooiooo 


aid UVal kiat 


/•••••••••••••••••••••••••••••••••• 1/00190000 

/• A/0 019 IOOO 

/• mi kuooah (iim in is m jriiST no omits A/ooi920oo 

/• or HHSli, HUM, 1/ HUIIIIli ILH Hi • 00), AID Ilk'll- k/oaiiiooo 

/• HlktikU i! toooo. voaisnoso 

/• ill...] is a ammo or chhctiis i iiti iiu appiai on Listns A/oimsooo 

/• Aik it 0(1 PAH HAOikCa. It IU« «i Ui> To Ik CHAI1CTISS 1010. a/00156000 

/• ,».... ta a aid no or or to 97 LriAiAoriia. it mini •/ooi 97 oao 

/• tut rust cam tiUoA or mu "//stapinr so" statiiht a/ooisiouo 

/• (ILL Hill tta or((A«o mill MuLlclD «ITH Tilt CIAI1CTII »/0UI990U0 

/• iriiu nrmu. as or ma mtikU, tms stimo is aliais i/oouuouo 

/• fl( oriel ILLOLAtiM; THIS 1110(9 til UStl TO ISPLACI Til i/uotkiuuo 

/• sismi ami alloca tim ro* srjpii it. ir jiittid, io 1/00112000 

/• JlSHilT lOOltlCATlOka All RAOI. A/OOUJOOO 

/• i/UDtSIOOO 

/• til pahiatiis aii rust rum, mi oimm riiAiirns */ootisooo 

/• UolcAtaD It COIIA Old, (III TIAttilO COMAS OPTIMAL. UACU a/OOIaSOOQ 

/• itu nor osLiiir aii rAiAirrii to «ssiidii«, iut tr aii PAiiHiTi*i/uoik7ooo 
/• comma ar ac la oi aii oimai special lhaiaciii, it iost ii a/ooiaiooo 

/• dctoaio ii rims i 1 ). ro« iiAinti voauoooo 

/* 1/00170000 

/• //mums me rL.r*aiii»jtA,i(oio»*)ii)A ( rAn-(,'!*.k',o»jB(t, */oomooo 
/• // ,*jio 7w«,<srAci*tiu, (too, AO)), ••• imicio •»••) */ooi7iooo 

/• 1/00171000 

/• Hums ta io kins mi rioi, riois iiaois iiti "iiliasi is.a" aio •/oouiooo 
/• -jko 7sj», oioict c aids deleted,, caios iisiouhcio iioimis a/ooitsooo 
/« mi 0.010019, aio soarmiT oo caios nutate mi i/ooi7sooo 

/« k/00177000 

/• //StSPMSt DD SPACI-(I21, |J0tf,60)), lire ACID A/00171000 

/• A/00179090 


/* 9IIC1 tu I ALIAS! kUIICI COITAIKO A MIIOO, IT IAS MACIO IITH l*/OOIIOOOO 
/• riuta. loss TIAT ir SaS«* , a IS 1ICLU0I0, IT SHOULD IICLODI A A/OOISIOOO 
/a ikAiuio coma to csiiiiui tii srsrmt caios. comas ii ah a/oouoooo 

/A OHM MIAIITII All TIIAtIO AS Olilllittd, THIS MASS Till Til A/001IS000 
/• A/OOIIkOOO 
/A A A I A A I »•«••••••••»«••• k. r • I •• III • A /00119000 


/• 


" 5611011 “ 


A A /00001000 


ST IT LEVEL KSt 


/A AAkAAAAAAA#kkAAAAAA(AAAAkkAAAAkkA 1/00116000 

/• A/00117000 

/• SICOIO CAIO A 10 VI COULD IAVI Mil SPECIflED AS A/001M000 

/a A/0O1S90O0 

// *,260 7M,SMCI"|11t, (200,60)), ••• lirLACOO *••• ) A/00190000 

/* A/00191000 

/• mi 1DIITICAL IISULTS. A/00192000 

/• A/0019 JOOO 

/A IlItllALLI, "SOIIDEI" IS IIITII* UTIHKIIO Pl/1 IOLTI- A/00114000 

/A TASKIlw. tlk DOTH I TASI SCAkS TII IkTOT OICI TOI TIS IMDSD A/00199000 

/A 110(1 milks. TII OAUOItll IS ATTACISD 1IITIALLI IIICI A/00196000 

/* I ATOMS til SOIT I0UT1II AIO rolirs to III riOCIDttll "IIOII 1/00197000 

/a iitii.siioti" as iif lOUTiii to riovioi son iicoids. siii'it i/ooniooo 

/• is miiifi, it hits roi tii iothii tm to moouci a ucoio a/ooimooo 

/a iimiuroi it corns tii iicoio iito its aha, posts tie iotkii a/ouooooo 

/* to comiui, aio iituiis tii iicoio to tii soit souths. 1/00201000 

/• ALL or Ills ALLOIS TIL lOTIIH'S "OUTPUT.. SOIT III* PIOCIOUIS 1/00202000 

/A TO II CALLED IAIV LULLS 0011 TIO* IASI PLACES AID STILL IS A/00202000 

/A AILS TO PASS TIS ISCOIO TO TIS SOSTSS AID IITUII TO ITS CALLSI.. A/00201000 

/* A/00205000 

/• if confute on a pl/i viisics 9 cohpilsi, tii piociousi */oo 206 ooo 

/A rUICTim "MIATI" AID Its OICLAIAtlOl SHOULD II IIIOTSO AID */00207000 

/• THE lUlLt-IK ruictloi UtlLltmO. A/00201000 

/• 1/00209000 

/A 4IUI C0IPIL1IU "SSIIUH", USE PAHI"'SI"(2, 71,1)*. A/00210000 

/» A/00211000 

/• -CIS* A/00212000 

/• A/002 12000 

/A AAAAAAAAAAAAAAAAAAA AAAAAAkA 1/00211000 
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/• • 


' I b J I II u • 


• 6/00001000 


<l*T uo*L »iil 


) wujui mocnoui* (n«ni „rno»s (mu, mils 


00215000 


i 


mm oicl**l 

»»i» itiui amt, /• sue* u nm uci 
rrlitu imu nai ootroi, 

/• unaa or ms* n dicki 

/• DIIIIH I* •lltll*. 

«ud*c* mu* outrun 

/• con of otc* tut* •mruirf 
/• cup* itruciD **p uustfci 
/• iu**i**p, xr iigdiiiaj. 


0011*000 
V0 Oil 7000 
00211000 
1/00211000 
V00220000 
00221000 
*/0 0222000 
V0022JOOO 
V0 022*000 


2 


sii.siusast 

OULU* 

(m.poic, 

*uo«_occu***o. 


smci.simsi, 


*UU*L.tC*l_*«iO(ST, 


/• srsu iw-or-nu iipicito*. 
/• iiotcms *rmo_tc**» roopp 
/• * ***** cuo, iiriorci »(- 

/• Llama, ire. 

/• tioiciti* •ruio.sc*** snopld 
/• m*T sex* sit* ram »o»- 
/• on ** mu mist mn ii 

/• **tii*a*. 

/• iOOICIf <* •IIIII.ICII' SPOOL* 


SPLSCT.UUU.fCU, 


00225000 
0022*000 
V00227000 
VO 022*000 
V00220000 
V00220000 
V0 0221000 
V002J2000 
V0021J000 
V0022*000 
•/00225000 
V00220000 
V00227000 
V00220000 


/• i*r it* >mci_*ir*s**, ir 

/• KUUimoi SCI* f 0 * I* 123*1 

/• sis* uroo* iukiiio mold. 

/* IHOICIIK* SCI* or •ISKOfT* PRO- 6 / 0 022 9000 
/• 0 * 1 * *MUCI" CUD ***■■•* I* */ 002*0000 

/• ( 12*0 1 * 0 *. V 002 * 1000 

08 J*CT_C*P 0 _DIL*TIO»_**(|UISt*», 002*2000 

/• M 02 CUU 121 OOJICI CUO* HID V 002*1000 

/• no* >2t*IN* SPOULD (I */002**000 

/• DILUID. */ 002 * 5000 

ioDiri_sisrii«t_*iuuisT*o, 002**000 

/• uoiciiu m riur cuo or */oo 2 * 7 ooo 

/• iicouue v/*>*r*xiT 00 ■ voo 2 »«ooo 

/* stiiuurs iuouLo *u* mu */oo 2 **ooo 

/• or linos iulued ti t*i oux VO 0250000 

/• no* oriuso or x*s »*i* c VO 0251000 

/• rSHSUIlD**” CUO. V 00252000 

/* 2 * DICIXIS X**X COLON* 72-10 V 0 025 2000 

/• or uruT pick jsould dot vooi 5 *ooo 

/• ic ikxiuof sit xr room voo 2 ssooo 

/• »***c roi« 3 sx*oti» ru* is */oo 25 *ooo 

/• ** 0 ** 0 *. V 0 025 7000 

/• XN 0 ICIIC* "HID*** SIOOLO SIMM V 00252000 
/• ILL CUPS UITXL Silt IISC V 00259000 

/* cuo is rouso. voo 2 *oaoo 

/♦ IlOXCItlS "IBIPII" SIOOLO Bins* V002* 1000 
/• ILL 3 CL CUO* UP SBTURM V 002 L 2000 


ssouuci.surruss. 


mo.ro.iuc. 


IIID.XO_IOI.JCL, 


/• * 


•ISXIII 


• V0000 10011 


Stilt LCVIL list 


/* IKLt MOS-JCL CUP. VO 026 2000 

iiip.io.ici.cumi, /• xioxcms *moii« spimld *tr*s*voo2**ooo 

/• COIILSOITIOI CUDS. VO 026 5000 

•1CL, /« INDICIll* List CUO *1*0 X* * V00266000 

/• JCL ("//■) CUP. 6/0026 7000 

I2IC.CISD) /» IlOXCItlS List CUO **■,<) IS U VO 026 *000 

/• sue CUP. VO 026*000 

ST OTIC lit (1) XIITIIL (OP) j 00270000 


* 


unuictu.smvssi 

PICLUK 

ru* esu (iooi 

(ftkLSISI.XVro CPU (15) IPIIXIL (• I), 

/• COIIIXPS IITPII BLUKS 0* 

/• "MLIISE . ■ r OR 

/* HBIPXPS. 

LXSt.XD CPU (Ik) XIITIIL (• >) , 

/• CO SHIPS LITRE* SLINKS 01 
/• USER IP ro* OK! OX PS. 

23*1*0 CPU (100) VIPIINO, 

/• concurs thii rut or the 

/• COPILOT CUO ICIPO 111*1**0. 
SCU.STUIO CPI* (100) IIPIXPO, 

/• COPIUPS STPINS (ISO**) PLOS 
/• IMP* CH* RICTUS TO LIHIT 

/• SCI* DUPIPO "PIELU 3CU". 

riELD cpu (p), /• pulp rouio or vielo scu». 

VSEV.COPIII CRIP (I) INITIAL (• •), 

/• CONTINUATION CHIPICTEI SITED 

/• r* 0 H ppeoious cuo roi 
/• *88*0***. 

nastp (12) cpu (2) ipiixiL ('j** 1 , 'ru*, 'a**', 
•in*. •***•, *ju*', • jul* , **uo' , 'sir*, 

•OCX', **00*, *U*C') , 

/• LOITP PISES roi PEIOINS. 
SELUSI.PUaSEI CPI* (7) OUTING, 

/• SECOND "I* EC r0a*S0IS0EI,P*IR** 
/• MISHITS*. 


OUTING, 

/• •LUC reuse ISOM* MU riELD. 


SISrSIKT.SMCE CPU (57), 

/* CJPTUPS LIST "EXEC PGR* 

/• SflIPDM.fMS." riiAHETEftl 

/• ipplicrs orspipos or ill 

/♦ V/STSFPIST DD« CUPS UAD, 
DITE.Or.LXSIXNO CRIP (0), 

/• TODIT'S PIT*. 


S0IT.STIXPG CRIP (66) , 

/* STUNG RUNG PISSED TO SO«T 

/• oioGiiH, copied noa 

/• »30*1_*PCOPO". 

DSLIHXTE* CRIP (1), /* CPIIlCtEB PNICP DILI SITED 


00271000 
00272000 
00272000 
•/00276000 
00275000 
6/0027*000 
•/00277000 
6/00270000 
0027*000 
6/00260000 
6/0 02*10 0 0 
002*2000 
6/00202000 
6/00206000 
0 02 0 50 0 0 
6/00206000 
6/0020 7000 
6/00280000 
6/002890110 
00290000 
•/00291000 
•/00292000 
6/00292000 
0029*000 
00295000 
00296000 
•/00297000 
00298000 
•/00299000 
6/00300000 
00201000 
6/00202000 
•/00303C70 
6/00306000 
6/00305000 
00306000 
6/00307000 
0030*000 
•/00309000 
•/00310000 
•/0031 1000 
6/00312000 
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/• • 


• 1 l> I Ht 1 > 


• »/ooouiooo 


»m utu a * i 


ftJHAEk urn (M) , 


/• "HUB". 

DOHA Rk CHAU (IB) lAklMx, 

/• HOLDS DDkAftk 07 OB CABO TO II 
/• SlAkCHIO run IB "JCL.SCAI". 

DSkikt ClUk («) , 

/• KOLOS SSCJkU Lilt L or 0SBBI1 Of 
/• 00 CABO BCABBAO IB 

/• •JCL_SCAH“. 

/• HO LOB SLHSIk BABB, IF MISHIT, 
/• COkMASPUkDIHG TO UIBBNI, 

/• AuUVB, IB "JCL.SCAH", 

kOk.HACkO.kASJ (Ik) CHAO (B) HIT (*DC*, <klt', *AUO*, 
•ABO#*, 'CoLct', *rkikt*, 'BIO', * BBTB I * , •OB', 

•mu*, * Sfc* , ' Bk'| , 

/• LIST or or CODAS BHICH ABB BOT 
/• BACBO CODAS. 

SOAT.COkXkOL COAk (AO) 

IkiTIAL (' SOkf MILOS- | 1,44,CH,A) •), 
AACOHD.COkfkOL CHAB (A 7) 

isiriAL (• bacoio Tiri>r,L(ksru> (4k) • >, 

/• SOBT COBTBOL CABO IBAOtS. 

/• HOLDS riBST TkO CABO COLUBBS. 

/• LIB BACL1VIB0 BABIIIS IB COM. 
/• MOLDS BABB or LIBBABI TO II 
/• LiBMtD IB 10. 


CHICK CHAB (A), 
COf ILIA CHAB (A), 
LBOuLIk CHAB (A|) 


STATIC! 


•/OOJ 1)090 
oomooo 
•/oujisooo 

k/OOJt 4000 
OOJITOOO 
•/OOJ I 1000 

•/oomooo 

•/OOJOOOOO 

OOJJIOOO 

•/OOJOOOOO 

•/OOJOJOOO 

•/OOJOkOOO 

oojosooo 

OOJOkOOO 

OOJOJOOO 

•/OOJOIOOO 

•/oomooo 

OOJJOOOO 

00 JJ 1000 

OOJJOOOO 

OOJJJOOO 

•/OOJJBOOO 

•/OOJJJOOO 

•/OOJJOOOO 

•/OOJJJOOO 

•/oojjiooo 

oomooo 


0 


AklTMABATic.lAAlABLASl 

OZcLABB 

(BAOA.CUOkl UAC1AAL MILO IBITIAL (0), 

/• PA4E CUUBTIB. 

OEBBkATlBU.BUBOBA OICIHAL MUD (0) IBITIAL (0), 

/• BUBIBB CBBBBATBO TO! 

/• SI JIB CABOS. 

(I, 0, B, L) Ai BA HI rilBO, 

/• HOBS VAKIABLBS. 

OOBABB.LIBUTB UlkAkl tUii, 

/• SAIB ABBA rui LABOTB or 
/• "DOBABS". 

JICOOBT A1BAB) MHO, 

/• BUBIBB OF SISUT. CMOS 1ST TO 
/• II SCABBAO. 

SKir.COOBI BIBABI MHO IBITIAL ( 1 ), 

/* SUB rol BAIT BUT SIIPklkT. 
LIkIJ.MH.PAOC AIBABI FUAD IBITIAL (10), 

/• libss no nun, cornu mob 

/* MIST BMC P<iS>S(iIBDII BABB. 
EHIRI.COUM MABO BIBABI, 

/• IBOBA BBIBI BUIBII OB THIS PAOI 
/• I II BO PBOCSSSAD. 


OOJkOOOO 
00341000 
OOJk 3000 
•/OOJ4JOOO 
00J44000 
•/00J4 JOOO 
•/OOJ4BOOO 
00347000 
•/OOJ4IOOO 
00J4 9000 
•/OOJOOOOO 
•/00J5 1000 
QOJJ2000 
•/aojsjooo 
•/OOJJ 400 O 
OOJJJOOO 
•/OOJJBOOO 
00JJ7000 
•/OOJJIOOO 
•/003J9000 
OOJkOOOO 
•/OOJk 1000 
•/00JI3000 


/* • 


S 0 I B 0 I I 


• »/00001000 


STB! LBV tL BIST 


LIM.BBIIl MAID BIBABI, 

/* IB OBI or "SOITBO.EBTIIB OHIO 
/• PBIBTIO. 

THUBA.SPOT MIBD AIBABI, 

/• LX HI BUBIBB OB BHICH THOR* III 
/• IS TO HI PBIBTIO. 

SOBT.HITOBB.COOB PAIBO AIBABI (J1), 

/* COOl BITOIBBO SI SUIT) 1SBOBIO. 

SOHT.BICOBO.COUBT BIBABI MIBD (J1) IBITIAL (0)) 

/* COUBI or SOBT BICOBOS OUTPUT. 

STATIC) 


OOJk JOOO 
•/OOJJBOOO 
•/OOJk JOOO 
OOJkkOOO 
•/OOJk 7000 
•/OOJkOOOO 
OOJJIOOO 
•/00370000 
00171000 
•/00373000 
0037 JOOO 


J 


MSCILLAHIUJSI 

OACLABB 

1 SOBT.JSCOSO STATIC, 

/• 

/• 

J I IBB CHAB (B) , 


BBCOBO or ZBUBI IBPOBBATIOB TO 
BB SOBT BO. 


/• ACTUAL IIDII ITCH. 

J IIS CUAH (S), /• LIBBABI OB ABICH ITS* BSSIOBS. 

b USB CHAA (B), /• AAI IB ABICH ITER IS USIO XB 
/• SISCIB. 

J SILO CHAA (B) ,/* SUP II BHICH HIMBBBCI OCCUIIS. 

J PAOE.HUHBSA PICTUBB *IAZ9*, 

/* AHBO-SUPPBISHIO PAOI BUBOES OP 
/• LLSTXKO OB BHICH ITIB 

/A APPIABS. 

J CAAO.IU CHAB (B) , 

/• CABO COLUBBS 7J-I0 Of CMC OB 
/• BHICH ITBB APPIABS. 


U0J74000 
00375000 
0937 JOOO 
•/00J77000 
•/00J7I000 
00371000 
•/OOJOOOOO 
•/OOJtlOQO 
•/OOJOJOOO 
•/OOJOJOOO 
•/OOJOkOOO 
003*5000 
•/OOJOJOOO 
•/003S7000 
•/OOJOOOOO 
OOJOIOOO 
•/OOJIOOOO 
•/00J91000 


SOOT.HICOSU.MIA OLMBBU SOIT_IICOHO CtfM (44) , 

/• 44 CHIIICTE1 STBIIO COmillBO 
/• ALL IIDII HOLM. 


00312000 

•/00393000 

•/OOJIOOOO 


1 CAkO.AtIA STATIC, /• AOM IBSO BHICH CABO IS HID. 
J CMO CHAB (71), 

/• COLUBBS 1-71. 

J COHIIHUATIOH.COIUHH CHAB (I) IIITIAL (• •) , 

/• COLUBB 72. 

J CMO.kUBHIB PICTUBB • 99499999*, 

/• COLUBBS 73-10. 


•/00J9S000 

00946000 

•/00397000 

oojiiooa 

•/OOJIIOOO 
00400000 
•/O 040 1000 


CAOD.IBAUI OIMBBO CAHO.ABBA CHAB (HOJ , 

/• UO-CBABACTEB CAI0-1BASI 111110. 


00402000 
*/0 0403000 


CAID.HUBBEl.AHEA OEMBIO CAIUJMIA POIITXOI (73) 00404000 

CHAB (0). /• CHARACI1BS IB 73-BO OP V00405000 

/• M CA BO XBASE* • */OOkOJOOO 


B-7 


/• 9 


< 1 t I I t t I ' 


• 9/00011900 




7 


3797 

4 


9 

ID 

It 

Id 

13 

14 

15 
1* 
17 

19 

19 

d 0 
d 1 
id 

4J 


d 4 


49 

49 

4 7 

44 

49 

31 

34 

33 


4913 k dial 


444434 /(ttUJ* *444, *44* 9(37(4, 

/• 41i( 3433 70* 

/• 940*(.43CO*1_C014(“, 


0(1447440 
4/04404404 
VO 0409000 


I U374.470T a(»(K, /• 4443(9144 3443 744 0373. 
» 1334 4433 |J) , 

3 904(4.444434 C434 (4), 

5 03 1 3H34 (4) , 


VO 04 10000 
00411000 
00414000 
00411000 


0313.4343191*0. 3**4 0371430 03(3 VOT C43I (•) , 
/• 70U 430371317103. 


00414000 

9/00*15990 


*44*4(0 43(41 (.434 (411, 0434 (471 , 7(340 314341 (11), 
11330 4il34l(i1|, 34141, 44r4!| , 

/♦ *047 400(144 34741 3774140733. 
1437*34 43131 (713*0 414341 (1111, 

/• *047 *001173 C0401TI04 C0D3 
/• 437734 37(414073*. 


0 0 * 1*000 
00*17000 
voo* uooo 
00*19000 
*/00*40000 
*/ 00 * 4 1000 


(44.010.014143(40, 


/• 39347 334440 C03744730 33C4 
/• 71*3 3 C047L373 13033 33737 

/• IS 033333730 1370 
/• “3047.434040" • 


VO 0*1 4000 
V0 044 JOOO 
9/00*2*000 
9/00*25001 


(4033.7414730, 


/• 99 SOT 9*4430 4434 “4047.I41I3* 9/10*29000 

/• 7 AC 3" 73*3 C0974313*. 9/00*27000 


49C04J. 340477*0) 4933( *19714; 00*14000 

/• 49 447 134330 C097L4T40 4433(9(1 9/00*24000 

/• “SG4T.43C040" IS C071I0 1 470 9/90*10000 

/• “*047.374130“. */00»11000 


I 


03CLA33 

134171 34741 437U4I4 (733(0 413341)1 

/• 04.L343 944379 70S 4413333 14. 


310 r _ 

cuimstt uuijii uzi iiiiifii 

Hi uui - 


00*14000 

00*11000 

4/00*1*000 

VIMlIMt 
VOO* UOOO 
•/non (too 
VO 9**110* 


/• • 


*034033* 


» VD00D1000 


33933 44*7 
1 


*1*03* 14033 C3 £371041 


/•**********************<«*»****»**VO0««100O 
/• 741* 4L0C3 1417X333314, 7431 */00«**000 
/* 30074 703 3AC4 JO* SIS*. 9/00**5000 
/• 39031(0 743 71071* (30C3 TO V00443000 
/• H33B3S TN37 4117, 330 713*337 VOO** 7000 
/• C3S334 07 3(0 1404. V00««9000 
/«»•••••*•»••••**•••••••••••••*•••• VO 04 * 9000 


17 334074 (734*1 “0 /• 

TM34 00 70 07(3.ri3(*( 

/• 

1, J « 14043 (0339, ',*)! /• 
17 1 • 0 /• 

(4(3 1 • 333074 (7349) 


17 7344 34 34SI4T, 00 0734 


71333. 

S43ICM 704 COM3. 

17 414S14S, 7337940 II 7033093. 
♦ 1l 

K I « I /• 04L3SS “7349 “,333933“, 

1434 474140 • 404*73 (73(4, I, 1-1)1 

/• 701 719*7 7399 3970 *11190. 

37 J * 0 /• 17 40 07433 7*19* 799*397, 

7433 7319 • ••( /* 7H39 *9777 007 7*99 j ILSI 

4341 7919 « 304479 (7949. 3*1); 


17 1 • I 


/• 

/' 


7439 00 (0 0744.733991 

/• 

09 C0I9I39I09 /• 

979340 • >40*1 /* 

LI43S.73S.330i • 9741401 /* 


499(4 ( 00(91443041 


707 3347 07 73394 1*70 “7319* 
17 714*7 7349 IS 9I3SI90, 

443 3C4. 

17 7 30 St 7344 I4CLU0ES *04- 
4UM443C, IS7LSC3 4174 0*7*037 
707 71497 7*44 3470 “3I4S* 711 
7S0S*. 

4147094 *747*9 43403140. 


VO 0*50000 
00*5 1000 
V004S200Q 
9/00*5 JOQO 
V00*5»000 
00*55000 
VO 0*5*000 
00*57000 
9/00*54000 
VO 0*50000 
VO 0**00 00 
00*31000 
.9/00*32000 
VO 0*3 1000 
00*3*000 
3/00*35000 
3/00*33000 
.3/00*37000 
3/00*30000 
3/00*30000 
3/00*70000 


SET 


II 


I 0434.713491 

0794 7334 (4(434), /* 0714 333 71349. 

7131 (7BI 473S) 7AGESXZ3 (3X44S.7S4.730S) 73 731 ('ISMS' 
7333 (41 10ICK) 1 

.1 04 3407X3S (SISXS) /* 

1 333.0093 • M'S} /* 

I 0374. 3303 39X46. 34 3 A • DX74| 

. /• 

1 03(4.07 3137X46 • 033 || 

. ••41 733*1 /• 

1 04 4407 SOS (741 47441 4SG3S{ 

/» 37 ISO 07 73G4 04 47S741471 

4 7304.C0047 • 7SG3.C0U47 » 1; 

4 73G3.4US444 “ 73U4_C0UII; 

/• 4097 340 40IT 73GI CO047. 

4 707 7139 (741*749) <017 

(SSL 33 34.3 470, D«T4_07_LlSlX4a, 

•4IS044 X4D4X LIJ714G*, LIS7.1D, '73GI ', 
7303.409444) 

(7304, 3, 3(10), 3, C01U44 (50) , 3, 9(14), 3, 


37 SIO 07 99434 7(31, 
>333.0044" 34I7CH. 

747C4 70031' 4 0373. 

)( 40374 (404T4.SU9SS3) 
1343 0374 713177. 


00*71000 
V00*7(000 
1,00*71000 
00*7*000 
9/00*75000 
9/00*74000 
00*77000 
9/00*74000 
00*74000 
9/00*40000 
00*41000 
9/00*42000 
00*43000 
00*4*000 
•/0 044 5 0 00 
00*44000 
00*47000 
00*44000 
00444000 
00440000 


B-8 


/• * 


sulNDEE" 


• */000 01000 


kill LEVEL lul 


JO 

J* 

J7 


jv 

«0 


* J 
«J 

7 * 

*5 

»• 

*7 

IN 


COLU4N (till), I 0)1 00*71080 

poi nn *>ir oo*vooo 

(‘ .. . ... M IMIP (0), COLON! (00), A) (00**3000 

/• OU1PUT rtlU HANOI!', 4/00***000 

VOt nil irklint) a»lp (J)| 00*70000 

*40) 00*7*000 

alAIGa (IACGaO_GtNE»EIii>) • Ui 00*77000 

/• it I onto* or IVIIT "IlCOID */O0»»*00D 

/• gmahailg* as o ro hean " */oo«»»ooo 


/• 


{■DU NICONJ I* HSIAO PA5SI0.4/OU700000 


CutPLLTAGN |HACGML GIIIIAMO) • 'J'Nj 

/• mtunii titii vaiiailis to 
/• •*»». 

CGipimei (Necgnd_accepxeo) * 'o-o, 

CALL SOHl_lNi*«rACE TASK ■«■■{ (INDIA PklilED) ( 

/• ATIACH "SUNT INTNNfACE" TO 


ir tikoiH (*■»*») 


/• 

/• 

/• 

/• 

/• 

/• 


HJj INDIE IktkilJ TO SOM 
PNOGIAH, DECEIVE SOSTKD 


oooo iooo 

4/00702000 
VO 000 iO 00 
0070*000 
00707000 
•/OOOOkOOO 
4/QD707000 
4/00701000 


ikikiks sick, sso mn tss*. vooootooo 


ir *o pens* ois included oi voosioooo 

sue poi-sginone sms lies */oo 7 tiooo 

COJkT tlUTII, MAKS. 4/00511000 

Tkfck SO 10 SIGNAL PAGE; 0071 AOOO 

1 • INUSA (PASS, »,*)( /• Mill THE ESD OP TNI IELIASI V007M000 

/• kUNOSk (SECOND PASH) « */007 17000 

it l • 0 /• If IT** THI Oil! PASH THIlt 4/005140U0 

THEN SO; 00717000 

■ SUASI.HUHHSH • PAHHi 00711000 

00 TO IIPO.SSTl 00717000 

END) /* SIT AS IELIASI HUHHII IIOll 4/00720000 

/• PAIH AID IIAICH. 4/00721000 

msAik.lOHHIl « JUSSI! (PASH, I, I-t)| 00700000 


71 

70 


7* 

77 


7* 

77 

70 


IIPO.SMj 

OEMASkliro 


• 'klLSAJS > 


N*LNA!l_NVNI!St 

sit up ssls am lira pas hades. 
0 


IP LAlOTS (ILLSASS.IUHSSk) > 

ISAS OSLIASS.SUHSSS « 

SUSSTI (ILL EASE.! OH SIS, 1, 0) | 

/• LI HIT IELIASI IUHSEI POS 


oi caiiEsiiai 

NLLIASI.NUIIH! 
GLNINAIING.NUNNIli 


00700000 
0070*000 
•/OU707000 
0070*000 
00707000 
00701000 
•/0O70 7000 
•/007I0U00 
VU07J 1000 


/• SlUUISCE IURSIIIIU TO TOO 

/• DIGITS. 

/• IP IILSASI.IUHSIS IS HOT IUH*»IC»/007J0O00 
/• SEPLACS SITS SISOS. V007IJOOO 

*00 * I 0071*000 

IELIASI lUHIIIf 00717000 

/? USE IELIASI SUSSES AS LON-OIDEI VU071I0U0 


/* DIGITS UP CASU lUHIIII. V00717000 

NEVINT LCIV SkSIUS ( /• SMIST TU SISTIH PIOCISSIIG. V0O71IU00 

IP I • 0 /• IP 10 SOU PASS!, SSASCH. V00717000 

TSAI GO to SIGIAL PAGIs 007*0000 


/• • 


"SGINDEE" 


• vooootooo 


STSI LEVEL VEST 


77 1 

*0 1 

kt 1 

kO 1 

kl 1 


k* 1 

*7 1 

kfc 1 


to! 1 

*» ,1 

70 1 


71 1 

72 1 

71 1 

7* 1 

77 1 

7* 1 

77 1 

70 1 

79 1 

SO 1 


St 1 


sieiiu • sums (I'aih, i*i) i 

/• GIT kill OP PASH. 

I * HOLE (STS1EG, *,*){ /• PIED ISO OP PASH THI!!. 

IP I * 0 /• IP 10 TSAILIIG COMA, PAH Oil. 

ISIS I • LlliGTH (Smiu) • 1i 
OSJECr.CASU.DILICJOl.kEoUimu • 

SUSJTS (STSIkG, 1, I'll • * OSJDIL* 1 

./• sit SS1TCH AS TNI PSISEICI OP 
/* "OBJDEL* DICTATES. 

IP I >• LENGTH (STSIkG) /* IP NOTHING POLLOSS THUD PAIN, 
/• SEA ICS. 

THEE GO To SIGNAL PAGi; 

STUNG • SGOJIE (SUING, 1*1) i 

/• DILITE THE THIHD PAIH. 

I « INDIA (STUNG, *,*) } /• MID THE EEET COIHA. 

IT I • 0 /* IP HISSING, JIERV UP N COHNA. 

THEN I • LlliGTH (STEING) » ll 
SEJUINCE.SUPPNESS » 

SUNSTH (SUI NG, 1, X— 1) • * NOSEO* i 

/• SET *SZQU!NCS_1UPP1 E*S* AS 
/• PBaSENCE or ■EOSEU* DICTATES 
IP 1 >• LENGTH (SKIING) /* IP TNIS IS LAST PASH, SHSHCS. 

THEN GO TO ,‘IIGNAL.PAGIi 
SUING • SUSSTI (STUNG, 1*1) j 

/* DILITE PNEVIGOS PASS. 

1 * INDIE (STUNG,, ',*)( /* PHD COM!. 

IP I • 0 /* IP KISSING, PIE. 

TIE! I ■ LIEGIN (SUING) * 1) 

» SUSSTI (SUING, 1, I- 1) J 

/• GIT LIST IDimPICATIOS. 

IP I > LINGTH (STIING) /* IP THAI’S ALL, BiANCH. 

THIS OU TO SIGSAL.PAGIt 
SVSPUST.SPaCE • SUSSTI (STHISG, 1*1)1 

/• ANYTHING LIPI IS A NEPLACIHBNI 
/• POS "//SISP1INI 00" OPKBANDS. 
AOOIPt.STSPHlSr.llAgOSSrED • * 1 • Bt 

/* SOTS THAT 3YSPSISI CASUS SSI 
/• TO SI IODIPIID. 


007k 1000 
4/007*2000 
*/007«1000 
•/007**000 
007*7000 
007**000 
007*7000 
*/007«*000 
4/007*9000 
•/0075QOOO 
k/0077 1000 
00771000 
00771000 
VOU77*000 
*/0 075 7000 
k/00777000 
00777000 
00771000 
0077 f 000 
4/007*0000 
4/0057 1000 
*/0 074 2000 
007A1000 
007**000 
4/007*7000 
4/007**000 
4/007*7000 
007*1000 
007**000 
4/00770000 
4/00771000 
00772000 
0077 1000 
4/0077*000 
4/00577000 
0077*000 
4/00777000 
•/0077I000 


81 1 

Si 1 


SIGSAL.PAGEl , 

SIGNAL ENDPAG1 (Piling); /* PUNT PIHST PAGE HIAOE1. 
GO TU PLUSH, /* ADVANCE TO PIIST STEP. 


0077*000 
b/00710000 
7/0071 1000 


00712000 


/***** HD OP HOUSEAIIPXIG. 77777777/0 0713000 
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/* • 


■ I li I « t ( I 


• */ooooi*»o 


>t)i UIU list 

*8 

*> 
e» 


• ? 
*8 

k8 

8* 

«i 

u 

a 

vu 

8 !) 

88 

87 

8k 

88 
tUtf 
111) 

lu* 

1*1 

Iu8 

108 

lUk 

107 

luk 


* d.rkoi i)3 1 

js» • •kfimiu'i /• m «u*i» a sun in. 

cl* • • u /• oil** ilk Ik son mom. 

l • ikotl icito, ' iiil i|| 

/• mo cuioi* i» kkick * me • 

/• »ms. 

d • l * 1| /• S3*T*!cTU0 1 01810 OlkSTk or 

/• StlflUl. 

lit , i • so*m icno, i, jii 

/• rot miMii mo in*. 

/• mo corr n to mi im. 

/• uurrui iH»t kicokoi nttm out. 
/• nt on ii me. 


stir • lint 

CIU OOirut.aOll.llIi 

on • 'me 'i 

ItltlO > unit (tllD 


srici.nrui • tki 

IkOli.lClI.lihOUt • Ik; 

cut tmo.iciki 

i r moi occuinu 

rkii wo to riutki 
im • mu; 


i*i)i 

/• 


Mini iioiii nti ‘nit ...*. 
in to urns «**ic" ns sr4cn. 

lit to 171411 'Ilf*. 

1C 41 r 01 7IMI41 14*1, (ItVIllO 

li ktiiiok. man nn. 


/• mud to nit ■me* oi moil 
/• net or riiio 41 iris or nit 
/• non mu. 

/• outrut mm nton mi. 

/• iiiici to moiii roi 


nooiM lino mcutio. 


elec uoim.ioit.mi 
it imi * * tut* 

tin die itii.rioeiiii 
/• 

nn ir f mo • uimi’ 

rni eiu iimi.riuenii 
mi i r run • •uicorr* 
tin cm con riocin; 
nil oo to mill 

ir mc.ciia /♦ ir out riocin mo mr me 

/• ciio, tm do riocin it. 
rni so to mc.ciio.riocim 


0 0118030 

•/ooinaoe 

•/OOlklOOO 
00117000 
•/0 0511000 
•/00118000 
•/00180000 
8/0 018 1000 
00191000 
8/00181000 
•/0 0188000 
•/00581000 
8/0 058*000 
00587000 
8/00581000 
8/00588000 
V00800000 
8/00401000 
8/0040 1000 
00401000 
V00408000 
•/00405000 
8/00404000 
8/00407000 
8/00401000 
00408000 
•/00410000 
0041 tOOO 
00411000 
00411000 
00418000 
00415000 
k/00414000 
•/OOkUOOO 
0041*000 


108 


no 

in 

no 

1 1 j 
118 


m 

114 


risikt 

<440.tO.44IC • •)••; /• IOTI to *1140118 81 84«r nit 

/• me ciio. 

C144 8440111 /* 1140 1IUI. 

ir lii.aoii /* nor to iiroii mrs tm 

mi oo to mc.eiio.riocnii 

/• inn miuitio. 

lUlkll • lOlf.llCOlO.COdlTt 
rut mi irintii) inr (i) 

ton (luirii, • non mini coiiictio*) 
iniuii|5), oi); /• nut cauit. 
cooik rni (min, /* cion in rim tot >rititsi*. 

mi (in Diet) ; /* ms urn mi ion con. 

stilus (iicoio.omimoi • i; 

/• iiDtciti to •loit.mnrici* 


00418000 
8/0*410000 
V0041 1000 
•/00411000 
8/00411000 
00411000 
4/00415000 
00414000 
00417000 
0041*000 
*/004l80*0 
8/00410000 
k/0041100* 
00411000 
8/0041100* 


/ 


8 8 


■lUllOII* 


k 8/00001000 


stir inn nst 


in i comma* iiicmd.oiiiiiihi • •i*i; ouiiiooo 

/• till 414 limit 1181 llll 8/00415000 
, /• rum. 8/00414000 

i nn (iion.rixitM) ; /i nit roi "son.iHiiirici* to */oo4i7ooo 

, /• coinit*. 8/ookiiooo 

i ,y i C40S» me IIUHIIII /• cion rintii rni. i/ooiiiooo 

'* u i *41**1) /• no or r*oe*u. */ooi*oooo 



/• • 


* i « i i mil * 


• •/ooonop'i 


atlt LULL list 


wt 


bllll.><ui.k»J ifkOiiDMIl 1040 

/• Iilii Dlft.ll IDTDUtS TDI l|tUl» VOO* 420 t* 
/• klUMI IMD, OUTPUTS mil V 0 OU 1 U 0 

/• in 0 too rei mu liuui d/ommMd 

/• teitoi comm cum, in •/oomui 

/• urn or in no or m •/ctmaoo 

/• cunioL ciio mi. •/jjutooo 

/ItMnOlHmniMMDItllDMDHDII/OMtDODl 


loo 0 

I di d 

lo« 2 

loft 0 

100 d 

1o7 0 

101 0 

I o*D 0 

loo d 

lot d 

100 o 

101 d 

104 o 

10ft d 

lift 0 


LMU4 lI 4 • • • ( 

iiio.tv) me • •u , n 

DIIDUl * 'uime • | 

CIU JCL.aCUl 

u itc oooi 

till 40 10 UK. 
cluvUO • Oillllt 

a mm • • • 

mi tr jll 
1111 so to 

HDD OO 10 
mi • mi i«( 
dal • 'Ull *| 

UO - LlJlUlt 

cm ouTrui.soit.uii 


/• cl in LiooLti io men. 

/• ion orr iiiuxio to me cu». 
/• Sit 001111 roi •JCL.Itfll* to 
/• rtie mi itskioe s» cm. 

/• oo dtt ksliub sum no 

/• iniii, tr niiiit. 

/• no or mi is n inoii mi. 
.imi 

/» Sill DSIUI 11 L100LII. 

/• tr io min in uitio. so o# 
/• to coiiiol cups. 

coitioL sent 
SH.COlIlCL.lOOn 

/• ns i in mm n itu. 

/• lit * 1111 * n on. 

/• LIOVLil 11 111 UP. 

/• outrut ntrt. 


•/•on tan 
•/oenoou 
•/ton iott 
•/o on mot 

•/OMSIOtO 

•/oenittt 

•/OM4SOU0 

oonitto 

•/•Mfttttt 
•/•MSIttl 
•/toniooo 
oonttoe 
oomoeo 
oiniooo 
•/ttnioto 
•/tom no 

VO 0*1 5004 

•/oomoot 


117 i 


m i 

m d 

ltd d 


tJItlOl.SClll 

/• 

1L14.10.I0 I.JlL • »l*lt /• 
JILL ISLOII t /• 

tr iLL.Jun /• 

tin jo to Liis.sitt t 


»i inn* is to mo to nit 

IOI-JCL Clio. 

jo on rust coiiiol cno. 
sit or riLt nouLO lot occn. 


tonttat 
votmttt 
•/atmttt 
•/ 0 M 70 ttt 
•/tttt i tot 
otittoot 


l«t I 

lot d 


all.COITICL, I'AOri 

IllB.tJ.IJI.JCL * • 0 > n /• ILL Otlll ■null 1 C 1 LLI SIOUll 

iiu.io.iui.coitii • 'Pit/* oit mt loi-cominuoi 

/• CUD. 


0017)000 
•/OOL 7 IOOO 
•/OJ* 75040 
•/OMTtttt 


l»J d 


In d 

lift d 

Ilk d 

IC7 I 


CLltlCL.LOUK 

JIDtM • LA 11) { 

ancs.iiriss • M'n 
ttoiL icn.mUist • 
CALL T**iOlLAIj 

tr niui.Sccuiiio 


/• rut cno tno isniiitioi 
/• in no. 

/• sit or toi •riiLP.scii* to 
•o'ii/« on ormtioi rim. 

/• on oriimoi rtiLo. 

/• to io n moil (mini in 
/• iLiint mi oitrut). 


00177000 
•/J 0171000 
*/ 0 M 7 f 000 
voonoooo 
•/oetnaoo 
•/ootnoot 
•/oomoot 
•/ootiiatt 


/• • 


"SJIIOII* 


• •/ooootooo 


Sill L1V1L list 


14* d 

III d 

IftJ d 

Iftl d 

Iftl d 

Ifti d 

1 ft 4 d 

Iftft d 

1ft* d 

1ft7 d 

Iftl d 


t ill uo to int.coitioki 

jsi • rtiLot /* rut or coot mo usi. 

/• alias no inn ciioi unci. 

At Ull * 'ALIM' | Ull • <sim« 
till JO to iLt.LIl) 

/• nemos no cinai cnoi 
tr jsi ■ •iiCLUoi* t on « •cinoi* 
tin oo to icn.uit 

/* unci ini. 

tr jii • •iiruci' /• iulaci cups siuci nil. 

till Ji< 10 CLIAl.LIlt 

tr jn •ini* /• n w cuds nn tnouou, ill 

till SO TO IISr.COItlUL; 

/> ilii ii liens. 

Jll • 'Ull «| /• 111! CUM UIIIIITI ‘LI** 1 LSI. 


oousoao 
•/ton loop 

•/O 0107000 
00*10000 
OMttOOO 

•/oonooto 

00*41000 
00142000 
•/OMOIOOO 
•/O 0*44000 
00*45000 
•/OMttOOO 
00*47000 
•/ 0 M 40 S 00 
•/OMttOOO 


1ft* 2 SAT.Wis 

UO « LIOOLtPl 

1*0 d SO to JIT.ITIMi 


/• Jll UODUI St LSI. 
/• JO Jit NIIUDI. 


00700000 

•/00701000 

•/00702000 


in 2 cuia.tiDs 

LSI • • *t 

ii 2 2 jo to dir.mnt 


/• lliu up riup. 

/• oo on oripuoi. 


00701000 
•/0 0701000 
•/O 07 OSOQO 


l*i 2 


1*4 2 

lift 2 

Ik* 2 


SLAl.LtU 

call ruLo.scAit /• on nut oriuio oi tictuti 

/• uo cmei cuds. 

tr uuu.occuiiu /• tr mu lot rouio, loiou. 

till 00 TO UlT.CJITIOLt 
Ltl • rtlLOt /• USI U 3 L 0 IS UI. 


0070*000 
•/00707000 
VQ 070 I 000 
•/00704000 
00710000 
•/0071 1000 


1*7 2 


Ml 2 

IU 2 

17 U 2 

171 2 

172 2 

172 2 


GZT.ItUSx 

drAC 2 .it rut • *o /• lots tut •uilo.icsi* calls 
/• siouto tot irrus utmio. 
call uuirut.sLL.iiiSi /• uu ii outrut imi roi nci 
/• oriiiio. 

it uni.occuiiio /* mi cup op moil. 

till 00 TU lUT.CJPtlOLt 

tr uii • •iiciuoi* t uu • 'cuius* 

tin /• oi ipcluoi no emu cups, 

tr suuta tstitio, 2 , i) • ',< 

TUI 00 TO SCU.LIBi 

/* ir ion tituis ui riuiit, 
/• oo nt ur out on. 


00712000 
•/00711000 
•/00714000 
VOOTISOOO 
•/OO 71 IO 00 
•zoom too 

0071*200 

0071*100 

•/00716400 

0071*500 

0071**00 

•/ 007 M 700 

•/OU 7 MOOO 


17 * 


mt.cuitioL: 

CSLL 111021 J 


00717000 

/• USD r OI HIT COMTBOL CUV. */007 11000 



/•• 'lalliltl' • s/90001000 


aim 

uv** «s»r 




175 

4 

t» tww.DUti 

/• ttir at tor. 

s/00714000 

17* 

4 

aw TO U»ft a 

>4IT| 

00740000 

177 

d 

witCI • SU45T4 IbtiU, 

1. 41 i 

0074 1000 

17* 

i 

it b 41b It * •/•* 1 bliCK * •//• 

00744000 

17*7 

d 

I HUM v»U fg LINK UifJ 

0074 4090 




/* boor otrib coir tub ctto ribt 

s/00744000 




/• S» 0 s. 

s/00745000 

lit) 

d 

au to cuii'»... .boon 

/• wof. 

s/00744000 

in 

d 



0074 7000 



*«a UMK.tnJcUii 


•••/0U74-I009 


/•* "SOIiDIt" • S/UOOOUUO 

kill Ulll list 

1i4 I iSikbi.rtMttist rtOCIDDiii /s*tt*s*t»*st*t*tsststs*stt*sttsstss/0074i000 


/• THIS ObOCK IITItCTi Hi S»SrUiCks/Oe 7 tOOQO 
/• DSItli tie kikkfk TO OUTtUT S/ 007 J 1009 
/• ti til UOU mu, toots TO s/ 007 JJ 000 
/• outruT ttcs otcio iiitijc- •/ooinoo'i 
/• not tt U lOOli UTU, too »/ 007 l 4000 
/• tuts st iso or coiroob ctto s/oo 7 >sooo 
/♦ riu. */o 07 ]»ooi> 

/ssssssssssss stsssstsstsssssss S/ 007 J 7 U 00 


lit 4 

1i» 4 

lit i 

lit i 

1i7 i 

loo i 

III 4 

UJ 4 

lit i 

lit 4 

lit 4 

lit 4- 

lit i 


isto.to.tttc « •o , »i /* toti or sotoue rot use etio. 

outsit • •sisronci •< /• “jtt.scts" is to mi sisruici 

bibb Jbb.SCtii /• 00 CUD! IITUii mu. 

it tbb.uoti /• tor is tiiOi Dikii Kit. 

Tiki 00 TO tSIibi.tilT; 

it ksDiii • • • /• ir dot route, sur it. 

titi ir ju. 

TOti 00 TO ItbiO.SCti! 

il Si 00 TO Sit.kttiO boot! 
osi « •stsrotci*! /• sot sisruici ts uss. 

bio • OSit ail /• Lit IS Oiiikt. 

mi • kiiiiit /• mi is unit. 

•.tit ouiruT.soir.iiii /• outrot tim. 


•/O07JIO0U 
s/0971 iOOO 
s/ 90740000 
s/«07«1000 
00710000 
s/0074 1000 
00744000 
00745000 
00 74 4 0 00 
s/00747000 
s/00744000 
s/007* iOOO 
•/00750000 


lik 4 itbtU.SCtti 007S1000 

/* IliOii M iltoil N TO iCti OOik TO s/0075 OQOO 
44S0_T0.i0t.JCb « M'J! /• riiiT tut-JCb CtiO.. S/00751000 

1*7 4 Ctbb iitOtti 00754000 

l*» i It tbb.DOit /s tor IS iilOk lill! tUT. s/00755000 

lii i Till 00 TO tSDibl.iiiri 00154000 



400 4 ill Itcto boon 00757000 

44to_ro.iot.jcb • 'o'oi /* oriki ottos ssoobo ao to tkii */00754ooo 

*01 4 itiJ.TJ.kCi.cOirii » M'Di/s iOi-COtlltUtTIOi CtkO. S/0075»008 

4O4 * ortet.iurts* * 'I'si /• tbb •rmo.sctk" ctbbt SMoubO s/ou7ioooo 

40 1 J iuOtb.SCti.4iwO tST • * 0 ' 4 !/• srtCi-iirtSi, OUT SOT SCtk s/00741000 

/s rot iJUtb Slots. s/0074 4000 

404 4 U*i • 'ItCIJ '! /• tbb ikTiliS Dili ilbb Htii Oil s/0074 J000 

405 4 bli • • • I /* ti 4ktct0*, bli Sbtii. s/00744000 


404 4 ktbto.soon 00745000 

IT S J4ST0 ICtkU, 1, 1) ■ 00744000 

407 4 Till JO TO iiir.liCiOi 00747000 

/• ir THIS IS t COkktiT CttD, stir S/00744000 
„„ /♦ IT. s/0074 0000 

405 4 5I4iM • ctibi /* SiT CtiO tS iitklitUOk STIIlKi. s/00770000 

40* 4 ctbb ti ibe.se ti I /* sett rot or coot. »/oo77iooo 

410 4 It iiiOi.OCCUlilO /s sxir til ItO CtOUS. s/00772000 


1 



B-12 




/•• ■ i e i m u ' • */ooooiooo 

SIHT LEVEL NEST 


am» i copt.pbocesss procedure; /»*•*». *»«»»»»»»«»»«nnmmmm*mm»mmmmnm/uo79*ooo 

/• THIS BLOCK SCANS THE 05HANIS Or M/00797000 
/• THE SISUT1 A NO SVSUTA CARDS, M/00798000 
/• OUTPUTS IMJEI ENTRIES roi A/00799000 
/• LACK HEH8EE COPIED, CLEANS A/00K00000 
/• UP, AKD LA ITS. M/QU801000 
/MMRMMAMMMMAMMAMAMMMMMMAAMM.IMMAAMAAi/UONOAOOO 



orcooHT • a; 

DDSARE • •SISUr*( 
EEAJ.tO.cXEC « »0'Ki 


/• ME ALL SOLES TO PIND A SVSUT m/00808000 
/• DO CAKDS. M/OOEOMOOO 
/• ML * LL PICK THEK UP IK L2THKI M/OOROUOOO 
/• OMDEN. a/OUKOLOOO 
/A TJ KM orr M LA 01 MU TO Lite CARD. A/J0M07O00 


A8U A 

AO A 

aJa A 

A88 A 

A 09 A 

A03 A 

AOs A 

AO 7 A 

A88 A 

A09 A 


AMO A 


AMI A 

AMA A 

AM J A 


JCL.CMECK; 

CALL JCL.SCAN; /• SO SET L StSUT CLIO. 

IP ALL. LOME /• LOP HEME IS AM LlKOK ; EXIT* 

THEM CO TO COPI.KUT; 

It DSMAHE « « • /* tP MOT TOURD, SO PROCESS THE 

/• COMTKOL CAKDS. 

THsK LP JCL 


All EM 00 TO COPI.COHTHOL. CARDS; 
list SO (0 SEI C0P1 LOOP; 

PlMLO > DSMARl; /• COPT OSKAR* IKTO PXKLD* 

IP SUuSTH (CARD, K, 1) • • 1* 

THEM CALL SISUTI.SrT; 

/• THE SISUT1 DUMA HE SETS OUTPUT 
/• IK AM IKOEA ENT8V S« 

/• SVSUT1.SET; THE SVSUTA 

ELSE COPVLIN • JSMARE; 

/• DSKAHL IS SAVED AS THE 

/• COPV (KECEIVIKS) lik. 

UTCOUKT » UTcOUHT - 1; /• OAE LESS TO DO. 

IP UTCOUKT t* U /• it tl HAVER 'T DOME SOIL, LOOP. 

THEM SO TO JCL.C8ACK; 


00K08000 
M/00809000 
M/UUH1U0UU 
0081 1000 
M/0081A0U0 
M/0081 09U0 
00E1M000 
00814000 
OUHUOOO 
M/OOB 17000 
00818000 
00819000 
M/008A0000 
M/008A1000 
*/0 OKA AO 00 
OOBAJOOO 
•/008AM00Q 
M/008A5000 
•/008AM000 
M/0UMA7000 
0082 800U 


EMM A cCPV.CONTNOL.CAmJS: 008A9UU0 

/* ASK "HEADER" TO ADVANCE TO M/OUOJOUOO 

MtAJ.Tu_MUS.JCL * • 1' 01 /* /LAST COPV COKTEOL CARD. M/0U8J1000 

AMU A utL* MEADEK; OD88AOOO 

8M» A IP ALc.DUME /• AS USUAL, EOT IS EEROM. M/008880J0 

AM7 a THEM SO TO COPT.EAIT; U 0880000 


AMO A 

AM 9 A 


S AT. COP I. LOOP; UU8JSUOO 

RttD.TO.NOK.OCL « *0*8; /M ALL OTHER «KEAOIK« CALLS IK THIS»/0088ti000 
EtlD.TO.NOK.COEtlN • *1'D;/M OLOcN LEAD TO HEAT NON- M/00887000 

/* CONTINUATION CARD. M/00888000 


o 
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/• • 


' J li I I 11 i 


• a/OOOUIOOO 


JlflT 

2b6 

2b I 
2b2 
lit 
2b" 
2bb 
2b« 
2b7 

t%» 

lit 
1*0 
1* I 

2* J 
2*4 

<*b 

!•> 

1*1 

<«.# 

2*1 

dll) 

ll\ 

111 

in 

n* 

II b 
ll* 

III 
ll* 
111 
1*0 


2*1 


1*1 


1*1 

2*4 


at at 

1* b 
28» 


<M7 

2*5 

21.W 


*9U 


291 


252 

LbJ 

n* 

1* b 
25* 
297 
295 
799 
iOU 


90S 


1U2 

303 

364 

70 b 


JOo 

30 7 
JOd 
J09 

310 

311 


313 


U»t t *2->3 


co?1_njuti 00139000 

uTKXRS * C88u; /• 337 Li.D 9* E88K3NAT30M sri28S. a/00840000 

>l8l.*_8l78bS • M«»; /• CALL TO "73930 SC8*" 3MOUIO A/00»4 1000 

*sJ83_5688.A*lU2ST • 'J'*;/A 917955 S79CK5, (*(« HO* 03 »/00*42000 

call riL LO.aCAE; /• <)7K89T36« 73(30. A/0099 3000 

1/ *8liO*.CCCU*8iD /• allt 9*909 LA* 03. */00*99000 

Tot* 00 TO K8T.6U8T800.C8ID; 0 0*9b000 

39 73236 • '533 ACT* I 7 3280 • * S' 00999000 

(999 SO TO 399907 9A9£>*.»; 0099 7000 

/• 58A8CH TO HA90L9 523ICT C9IDS. 4/00*4*000 
39 93990 • *9999009' | 73830 • '9* 00999000 

(999 SO TO 9999009.1199099: 00IS0000 

/• 9MA9CH TO 999099 93C9U09 C9ID5. */00«b1000 
l¥ 93990 • *999999* /• 9*9999 TO 999091 090 919*91 V009S2000 

/• C99U3. VOOOb 3000 

(999 SO TO 090 8289*8.68803; 00059000 

A T T3990 — 'C07I' /♦ 3999 (9901)09 fOI C071 C8IDS, »/009 b5000 

/• 309099 *99 0THI8S. */00*5»000 

(999 OO TO *K*T.C0*T8O3_C*KD; 00*57000 

A « 39093 (37*390, *OtJIU0**)t 00*59000 

/• 93*0 OOTOO 0*3*990. */00*50000 


ir 3 


(9*9 SO TO 9*3r_C0»r«09.C3*0| 
OT939S • *1)9*7* 1*79390, 3'*); 


/• if 93**390, *93* 191 *9091 9ISS. */00»*0000 


*9993.91 99$* • *0*9; 
9931. (i»0C_*999 J 
3f 3990I.CCCU B* 10 


(999 00 TO 9337.9097903.9 9*0) 


/» 90*9993 TO 00**990. 

/• *99* f 09 0*399931 73130, 

/* 90 378C( *(*9**398. 

/• 37 933 309TC930 07, 7IIS3I 3T. 


93T9 


L-ueiLi* » 73330 j 


00**7000 
000*2000 
VO 09*1000 
V00*k»000 
*/00**50oo 
VO 09**000 
00**7000 


/• 5913 907(33* 00999* 9* 939(311*6 V00»**000 


/» 33**931. 

i - 3903* (9930, *390o«*)i/* SO 839*99 9990 701 3900. 
37 I « 0 /• 37 93**390, 3S90M. 

t*t* SO TO 939T.909T9Q3.C 9ID( 

8TS3BS • 809*79 (99*0, 3*5) ; 


a/009* 9000 
*/0 0970000 
a/00871000 
00(72000 
00*71000 


4 

CAli. fULQ^dLAU i 

/• ST 8(7 STUBS 93T9 071*8*0. 
/• KIIB9CT 07*9990. 

a/00078000 

a/00175000 

4 

If* IS H*ON_UCCU*H ED 

/* 5K37 OUT 09 (9*0*. 

A/0 0*7*000 

4 

i'HEN 40 TO 

8K8T.CUHT803.C99D; 

00(77000 

4 

caw. sitfUTt.srr* 

/A SO 0U77UI C0717I0R XT**. 

A/00878000 

4 

OW.iUJfUHi.CAMDSs 


00*79000 


JSfc » 1 COPITO ’J 

/A "8 38*21" C990* *11 

A/OOMOQOO 

4 

A * AHDEA (STEINS 

/A 78 (-8(8*9 SB* 19 IUS301 07 
/• "5E8ECT** C8905; H89D8I S3BU- 

/• 39981. 

, *9983"*); 

•/OOKIOOO 
A/0 0X2000 
•/OOKIOOO 
00***000 

4 

if X » 0 

/A TH25E OK "9AB1"" 39STB8D 07 
/• "8(89*9*". 

/• 5KX7 *80 CARD*. 

A/00815000 
*/0 08**000 
A/0 08* 7 QUO 

4 

f HEM 40 TO 

«(KX_C0*T8S8_C9*0; 

00M8000 


/ 


• 9 


"563903** 


A A/00001000 


39(83 9887 


2 

2 


3 ■ 3 * bj 

SO 70 887.(1*9*3 95; 


/A 90(9993 79*1 9(19010. 
/A 60 7*09(8* 07(1990*. 


*/00***000 
«/0 0*90000 


2 

2 


2 


583891.929089: 

088 • *907170 *| 

588l.0f.a31l981.5389 

SO tO *89*38_5989j 


00**1000 

/A 59T **90(110" 8* UK. A/0M92000 

19; /A r*U " 0UT7 UT.8L t.K (IS" TO *m*S*/009* 1000 
/* 07(1990*. A/00894000 

/• SO SCAB H(B*88S. A/00895000 


2 8 8C 3008.11890 88: 

USE • < 23931)08* ; 


/* 597 "83C3UDI" 9* U*l. 


00*9*000 

A/00817000 


2 


1 

2 

2 

2 

2 

2 

2 

2 

2 


1 

1 

1 


98*989.598*) 

3 > 39083 (5393 HU, •H3B83B**); 

/• 7380 9*99(9" 071(9*0. 

If * "* J /• 37 **9((9(("** 70U9D: 

7HE9 OO; 

3 • 3 A 7; /• 8019999 79SI K(fBO*D( 

SO TO 0(7.9398(95; 

280; /a 60 7B0C135 07K9BD3. 

3 ■ 39083 <518396, *9"*); /A 7B0C8SS 8*B*BIX8TI0B SXBUL8(8(. 
37 3 > 0 /* 37 THAT** B1SSIBS, (937 CKO. 

'7999 SO TO 9937.C09T308.99BC) 

3 • 3 a 2; 


0051(000 

00(19000 

A/00900000 

A/00901000 

00902000 

A/00902000 

00104000 

A/00905000 

*/0090*000 

A/00907000 

0090(000 

00909000 


2 


2 

2 

2 

2 


S87.B £1188*51 

579396 • 5UBST9 (3TB39C, 

579C8.917A55 » *0'*; 

835 • 6071335; 

6888 0U(7UT_933_KEIS; 

SE826T_rt(BU2*.*CA* • OB; 


3); 

/A 80199CB TO 071*9*0 9119. 

/* 9011 TMAT SCAB 709 731LDS IS 
/A BOX 9ECESS9B1. 

/A *21 OOTOD 33* AS 81*. 

/• SO 00X701 9 SOBS (91(1 FOB 
/• EACH BEHB95 7KSEIT. 

/• 9(S(T S93TCH. 


00910000 
00911000 
A/0091 2000 
A/0Q913000 
A/00914000 
•/009I 5000 
A/00915000 
•/00917000 
A/00918000 


2 

1 

1 

2 

2 


B33T.60BTB03 6990: 

6833 9(80(3; /A BEAD BEST B09-COBT39U8TIOB C9BD. 

37 988.DQBE /A (* XT 01 (07 1(1 BOB) . 

THE* 60 TO C071.233T; 

CU8C2 • 3U55T5 (CABO, 1, 2); 

37 CHICK • •/*• ( CHECK • •//• 

THE* 00 TO C071.233T; 

/A 37 C0BT90L CABO FILS SBOSO, 

/A (BIT. 

SO TO CQ7I.L007; /A (L*(, 3007 BACK. 


0091906:!) 
A/0092 0000 
A/0092 1000 
00922000 
00121000' 
00924000 
00925000 
A/00926000 
A/00927000 
A/00928000 


B-14 


/• • 


> a i * o x i 


• vooootooo 


St« U<lL B»Sf 


4 COM.lilll 00929000 

mlCf.9IHAN.SCAI • 'O'*;/* INSUKK SNITCH IS Ofr. VO09JOOOQ 

4*# 2 ANu CUP1.IH0CAS*; /•••••••••••••••••••••■•••••••••••••/0094IOOO 


/• 


SOINDSA* 


• VOOOOIOOO 


am uvii bbsx 


415 I SlaUtl.SftT; PBOCtUONE; /009J2000 

/• INIS SHUNT HLOCK UJIfOtS II V009JJ000 
/• 1N0S1 SNTNI ION USI */009J«000 

/• "CQPKINOI* NNI7KSI ITU V009J5000 

/• cm inon shut* oo cm oi voopjsooo 

/• HDD- IN COIN CONTiOL CNI0. V00UT000 
/•*•••••••*•••••••••••••••••• •••••••/6694I000 


ilk 4 

417 4 


41# 4 

4*9 4 

440 4 


OSt • * COIN INON' t 

mu • imu; 


.x# » • •; 

cm ouriur.sosi.NNit 
Nko sTsun.sEi; 


/• Oil IS *COPTINOH*. I/O 09 J 9000 

/• ltil COINS HOI HILO; It'S IMI*/0U9»0000 

/• NiiN oi THi uiiiir come */oo9#*ooo 

/• INON IN X1TNCN CASE. */009#2000 

/• LIN HILO IS NLANN. */OO9NJ0OO 

/• OUTPUT INDIA SITU. VOO9NN0OO 

***************/009#5000 


/ 


* I fi I NONA* 


* VOOOOIOOO 


ST II LKVNL NAs I 


4*1 1 OuTPUT.ALl.KEIS: PHOCIDUNI; /•*«**************#**»#*M**#****#»#/009«AOOO 

/• THIS BLOCK sirs HELDS HOI TNI */009«7000 


/• STNIN3 AID OUT! UTS INDIA */OO9«IOO0 
/• IIT8II5 ION TNOSN Hill, */OQ9#9000 
/• LOOHNO AS LONG AS TNI */00950000 
/• HILDA ANN ONLIIITND NITN */0095*000 
/• COHAN. V00952000 
/•••♦••••••••••••••••••••••••••••A* */0 095 4000 


444 

444 

44# 

4*5 

44* 
44 7 

44# 
44 9 

440 

441 

444 

444 
44# 

445 


4 

4 

4 

4 

4 

4 1 

4 t 

4 4 

4 4 

4 4 

4 4 

4 1 

4 

4 


NLir.KIU 

CALL IIELD.SCAN; /• 00 ONT NNAT HELD. 

II EHHOi.OCCUSitD /• NET OUT ON ANT ENNON. 

ININ 00 TO ALL_JUT_NAII; 

II StLKCI.HKHPSR.SCAN /• II BN' HI IIOCESSINO "SELECT* 
/• COHTIOL CANO OI "IIOCOH*, 

ININ DU; /• INN TOLLOHINO IS NIOOHIOt 

II IIILD • •#• C DNLIIITNI • • | • 

/* II INI OPISAND IS *... II*. 

ININ DO; 

STNINO - SUISTI (STNINO, 2); 

/• THIN UILITE TUI •) ", 

DNLIIITEN • SUISTI (STNINO, I, I); 

/• TICK TNI HIT DILIIITII, 

00 TO CORIA.CN ICE; 

/• AND SIPASS OUIPUTINO HELD. 

HD; 

END; 

HNS « III LO; /• SIT INIS HELD AS ITIR. 

CALL OUIIUI.SONT.III; /• OUTPUT INDEI EIIIT. 


00954000 
•/0Q955000 
V00956000 
00957000 
•/00959000 
•/00959000 
4/009SQ0UO 
0095 1000 
•/U0962000 
00954000 
0.096 « 000 
VQ09S5000 
00966000 
•/00967000 
00969000 
V00969000 
00970000 
00971000 
VO 097 2000 
V00973000 


436 4 


447 4 

44N 4 

449 2 


440 4 

4# 1 4 


442 2 

4*4 2 

444 2 

J4a 4 

44* 4 

447 4 

449 4 


C0I9A.CHACNI 

II DELI9IIIN -• »,» /» II 0ILIIITN9 IS NOT A C09BA, 

/• SKEDADDLE, 

f BEN OO TO ALL.OUT.EAII; 

II SUUSIi (STNINO, 4, 1) ** • • 

THEN OO TO NEAT.KIT; 

/• IP CONIA IS NOT IOLLONEO NT 
/• BLANK, LOOP PO* NEIT NET. 

LI CONTINUATION.COLUHH * • • 

THEN OO TO ALL.OUT.EIIT; 

/• II CANO IS NOT CONTINUED, BSEOI 
/• IN THAT CASE, EXIT. 

SEAD.TO.NON.CONIIK « <0'B;/* ASK "HADES* TO 0191 US HIT 
CALL KEADH; /• CANO, NHATEVEI IT IS. 

BEAD.TO.NOH.CONIIN • •I'U;/* BESET POI OTHII'S USE. 

I • VENIIT (CMC, • •»: /* II NO HOST NON* BLANK IN CAID. 

II i " 0 /• BLANK CAED IS I NO*NO; Slit. 

THEN OO TO ALL.OUX.NIIT; 

STNINO • SUBSTN (CAID, I) ; 

/* PICK UP CONTINUED OIISANO. 


00974000 
V00975000 
V00976000 
00977000 
00978000 
00979000 
*/0 098 0000 
VOOOOIOOO 
00902000 
009S4000 
VO 0994000 
VO 099 5000 
•/00986000 
6/00907000 
VOO990OOO 
6/00909000 
6/00990000 
0099*000 
00992000 
V00994000 


/♦ * 


SOI9DEN* 


• VOOOOIOOO 


SINT LEVEL NEST 

449 4 00 TO NEEI.KKI; /• OO PIOCESS IT. V00994000 

450 4 ALL.OUT.EIIT: 00995000 

END OUTPUT. ALL. KITS, */O 0996 OOO 
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/• • 


• a C X II l) £ 


• k/09001000 


alltl LLVu. NNST 


351 I Out* Jl_sj*I_JUIs P£0cE0UNL; /aaaa aaaa aaaaa aaa aaaaaa AAAAAaAaAAAaa/oumoOO 

/• Inti JHUEt It LOCK ritiis TKI A/00994000 
/• 1NUEE *NTHI TO •SONF.INTBN- V00999000 

/• F*Ct" AMD KEEPS COUKt. A/01090000 

/••••• aaaaaaaaaaaaaaa/o 100 1000 


J5a o cuhplataok (mac uhd.oehlnated) * 'I'd oiooaooo 

/• LET *S0A7_1NTEEFAC£” KM OK NECOIDA/0 100 3000 

/• jo mo*. vo 1004000 

tit A Kail INECCID_ACCEPTED) ; /• Kill PON iT JO HAK E A COFI. V01005000 

354 £ common ( N ECONO ACCt FT EO) ■ '0'S; 01004000 

/• BESET EVENT FOB »tif TANK V0 1007000 

/• AEOU4P. voiuoaooo 

355 £ SCNT_££CUNU_CCJ NT • SJNI.NACUIJ COUNT A 1| 01000000 

/• HOOF COUNT OF SONT HECOEUS. A/0 1010000 

35k £ ENJ OUfPJI_SOBT_KMs /‘AAA AAAAAAAAAAAAA AAAAA AAAAAAA AAAA AA/i) 101 1000 


/• • 


"SGINUEl" 


• »/00091000 


at AT LEVEL KNOT 


357 1 NtADEE: PHOCtJONE; /AAAAAAAA AAAAAA AAA AAAAA A AAAAA AAAAAA A/0 10 I £000 

/• THIS BLOCK KLAUS STSSEE STACK IIA/01011000 
/A AKCOAUS, INSEBIIKO SKgUKKCI A/01014000 
/• EUHBEBS aNO KiFlACiAQ VO 10 15000 
/• SISFNINT CAAUi IF BKJUESTED, A/01014000 
/• AND ECHOING THKK OH TNK A/01017000 
/A L1SJINC. THIS IS NKFKATK1) A/01014000 
/• UNTIL A CANO OF THE TIPS A/01019000 
/• KtJUESftD la HEAD. CONTNOL A/010J0000 
/• la THEN MsTUENKD HITH THE a/ 0 1001000 
/« CANO'S COLUHNS l>71 IN */010££000 
/A »C4NU", COLUHH 7£ IN «CON- A/0 1033000 
/* TINUATION.COLUNN", A/01004000 
/A "EIKC.CKNU" SAT TO IB IF A/0 1035000 
/• AN EKNC CANO NAS HEAD, ANO «/010£k000 
/A ' JCL* SET TO M'B IF A •//■ A/010A700U 
/A CANO NAS KKAO. A/OI02NOOO 
/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/O 1020000 


SON 

tit 

ikO 


Sbt 

in 3 

Ski 

Sk4 

sas 

Skk 

Sk7 

JkN 

349 

I7U 

171 

172 
371 
J7« 

370 

3 7a 


377 

J7k 


£ 

£ 



naau.anutheni 

£AtC_CAND * 'O' Ns /A NLSET “EEBC CABO* ANO "OCL* 

JCL • 'J'Nt /A BUS. 

PN£V_C0NTIk > CUNIINUATION.COLUnNs 

/• SAVE CONTINUATION COLONS OUBINS 
/* BEAD* 

tit FILE (STSIN) /A BEAU IN CANO TRACE. 

EOII (CARU.IRAOE) (A (NO) ) j 
ALL.UONE /A BEIT on END OF INPUT FILE. 

THEN CO JO BEAU.EEHs 
OHJLCT.CANU.OELErlON NEOUESTEO 
6 SUNSTN (CANO, 1, 1) • * • 

THEN CU TO BEAU ANOrHEH; 

/* SKIP OBJECT CANOS, IF BfOUBSTED. 
•• SEuUENCE.SUPPNESa /• UNLESS SLJUENCINC HAS BEEN 
THsN 00; /A SUPPNESSED NT BEUUESTl 

OENEB»IINC_NUHHEH > SENENAJIEU NUNUEN A 10000; 

/• INCHES ENT CANO NUHBEB NT 10000. 
CAND.NUHdKN • UENEBATINO NUNNEN; 

/• PUT INTO CABO. 

ENO; 

sUUSTN (CANO, 1, £) -• •//' 

THAN CU TO ECHO; /• KOB-JCL NT PASS. 

JCL I M'B; /A BOTE THAT JCL CABO HAS rOUND. 

IF NOOiri.STSFBINI.NEOUESTEO 

C SUBSTN (CABO, 1, 11) < V/STSFNINT • 

THEN OUj /A FON STSFHIBI CABOSS 

CABO < '//STSFNINT DO • | | STSFEINT SPACE; 

/• BEPLAC E AITH SUPPLIED SPACE 

/• ALLOCATION. 

CO TO ECHO; /• SNIP OONN TO ECHO. 

END; 


LF 

IF 

IF 

IF 


01030000 
V0 103 1000 
*/0 1033000 
01033000 
•/01034000 
a/0 1035000 
a/ 0 1034000 
01037000 
V0 103 80 00 
01039000 
01040000 
0104 1000 
0104 3000 
V0 104 3000 
•/O 1044000 
A/0 104 sooo 
0 1044000 
V0 1047000 
01048000 
a/01049000 
OIOSOOOO 

0 tosiooo 
k/o 1052000 
k/0 1053000 
01054000 
01055000 
*/0 1056000 
01057000 
»/0 1058000 
V0 1059000 
VOIOfcOOOO 
0104 1000 
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/• • ■ s i in i i ■ • 4/ooootooo 


SIM 

UVtfi. 









X • IID4X (CA40, • *)» 

/• 

rxio rim tun. 

4/0104X000 

J*0 



It l « 0 

/• 

10 1X41447 1XII1I 104 J441. 

4/0104X000 

iil 



INI* so ro tciO) 

/• 

(4X10 1U44XI IOX 444ICI.) 

4/0104*000 


d 


>11116 « 1X41X4 (C4IX, 

U (/• 

cior 0 it 1414 rxixo. 

4/0104 5000 

J»J 

i 


i > viixrt (Kins, • 

•M /• 

1C44 rot 1X411 404-1X441. 

4/01044000 


d 


il X ■ 0 

/• 

1011 14140144X1 loilllll) lltr. 

4/01047000 

i** 

d 


(III SO 10 ICIO) 



01040000 


i 


xr 1U4KI (inns, 1 , 

5) • •xx*c • 

0 100 1 0 00 

itf? 

d 


11(1 DO) 

/• 

1 04 UK C4401) 

4/01070000 





/• 

joix mi me ciid rouiE. 

4/01071000 


d 

1 

4XXC.C44D • 

•1*4) 


01071500 


d 

» 

ixxr.couii 

* X 1/4 

iixrxi irxci xxiixis iiroit 

4/0107X000 

J*u 

d 

1 

SO 10 XCIO; 

/• 

rixitxis it. 

4/0107X000 

i91 

d 

1 

IID; 



0107*000 

JIM 

d 


It 104X18 (KIXIS, I, 

«) • «ao» • 

01075000 

i9i 

d 


till nxr.cauii 

■ J; 


01074000 





/• 

iixrxi met iiroii job cuds. 

4/01077000 


x»* 4 


JV 5 4 

jy» x 

491 i 

49* 4 

499 l 

*00 4 

*00 i 

40 1 i 

40 4 4 

40 4 4 

404 4 

404 4 

40 b 4 

400 4 

407 4 

400 X 

400 4 


(CIO) 


rot ms ( 04 X 1114 ) 

14 X 0 (Kir.COUIl) 
40X1 (C440.X44S4) 
xKi.cuuit « ij 
our mi (in dicu) 

10X1 (CUO.XIUOl) 
It 4i4D.tO.444C 
1414 

It 4X4C.C44D 
1414 


/• ouirui icio or cud. 

(C 0 LU 44 |X 4 ) , 1 ) j 
/• 44141 10 1 X 4044 104 C 4 . 

/* 4Lio ouirui 4 corr oi iiidici. 


(*) ( 

/• 

/• 

/• 


ir 441CU14 C480 41X011110 410 


01074000 
•/O 1074000 
01040000 
01011 X 00 
»/ 0 1013000 
•/O t04 1000 
0 1 04 4 000 
4/01045000 


rouio. 41Xli It IIXUIITID 1014/0 104*000 


ioi rouso, xoor. 


4X11 

It iXAD.IO.IOt.JCX 

mi 

xr jcx 

1411 


00 la 4440.11X1) 

00 10 1140.4101441) 

/• xr ioi "jcx iixoiino 410 rooio, 
/• mi) xr iixoiino ioi ioi 

/• rouio, Loor. 

SO 10 1140.4101411) 

1X41 

SO 10 1140.1IXI) 

xr «i4o_io_4oi_coirx4 /• xr loi-coitiiiutioi uuoisiio 

14X4 /• 440 10040, 41X1; XI ti- 

ll riii.coiixi • • • 

mi /* XUII 140 ioi tor rouio, xoor. 

GO 10 1140.14X11 

4X31 

00 10 4(40.4101141) 


4/01047000 
010440 X 0 
0 1 04 4 0 00 
01040000 
01041000 
4 / 01 X 4 X 000 
4 / 0104)000 
4/01044000 
0 1040000 
01044000 
01047000 
01044000 
4/01044000 
4/01100000 
01101000 
4 / 0110 X 000 
0110 X 000 
01104000 
01105000 


405 X 4140 .( 4 X 11 01104000 

C 44 D.X 0 • C 4 IP. 4 UI 414 . 4414 ) 01107000 

/4 141441 1 IT 0 10 I 1 .I 1 C 010 III * 4/01101000 


/• • 


■SGX 4 D 4 X* 


4 4/00001000 


SMI XI VEX UK 


/• C 480 ID 1 UH 41 I or C 4 ID 11140 4/01104000 

/4 iiiuiiio ro i riocuixis. 4/01110000 
410 4 111 ) 144044 ) /4444 444 » 4 »»»»*» 4 »»»»»»» 4444 »»»»»»#*/ 01|1 1000 
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/r • 


aUIOwt *" 


• VUOOU1800 


ii*X U« tt km 


*11 1 7u.lu_StS*l r*GCtDu*I| /•••••••••••••••••••••••••••••••••• */0 11 12000 

/• (Mia *iuci seta* rot i mud vonuooo 


/• MKMlk THE CMSatCTfU STUBS VO 11 1*001) 

/♦ “arkiks". ir "spsct.arpsss* vomsooi 

/• la sir. kOk-kuans atroit ittvoimooo 


/• ri**T ana* tip ikik auats voimooo 

/• ur to rat mi aot-aisii aai vomaoio 

/* isauaio. ir "iouu sen 11- vo 111 9010 

/• suest* is set, aott cats- vomouoo 

/• ICTUS AM DIJCiaOkD UiTU VO Hi 1000 

/« ik ggiui. oio* xo roust. VO 111 1000 

/• too mud airuatto is m voimooo 

/• S(kl«o kCSlkklkS ST TO* rues VO 111*000 

/• ikticmo stoat, sou riiaits-voiiiiiooo 

/• rias aiTH s coats, orsci, vo 111*000 

/• os urok oa ctost rsaiatkisis. voimooo 

'• (ir tms siaiku aiuiks ait < vo 1110000 

/• ski or Two** outtiTits, vo 111*000 

/• tm(i sat oiscsioio.) rat voiuoooo 

/• a uoiTiku sraias is atrutato vo 111 loot 

/• it »riuu*. rat PtLiamas voimooo 

/• cHSkicita is atTUtato la voimooo 

«usLiaitta». casascTtas vo 111*000 

/• raoctssto sat ttaovtp raoa voimooo 

/• "sraiao" up 10 aur tiCLOOias voimooo 

/* rat otiiama. voimooo 




*11 1 

*11 1 

* 1 * 1 

*11 1 

*)* 1 

« r / a 

*1a 1 

*10 1 


*10 a 

*a t a 

*ai a 

*ai a 


kkaoa.oucuaasD • 'o'kj /• aasti taaoa laoicsTo*. 
it * sract.aipsss /• ir srset aipiss aor aiyumto, 

Tata so to loosL.caaca; 

/• airsss tat airsssiao raoctss 

1 • laoas UTkias, • *,, /# r x*a rat ntst aisat. 
ir 1 * 0 /• ir to tLsaas, taaoa. 

rasa so re taaoat 
ir 1 1 

(Mat siaias • suasra (sxaias, in 

/• mm Ltstiao casascitas ir 
/• sat. 

1 * itairi (STkiao, • •) ; /• riau aaiT ioa-*t*aa. 

if 1 • 0 /• ir tmi atst is aLsat, taaoa. 

rut* so to taaotj 
situs • suasra (suits, 1)5 

/* utitTt Ltsoiko tutus. 


voimooo 
vo 11*0000 
011*1000 
V01 1*1000 
•/ oil * 1000 
vo 11**000 
011**000 
011**000 
011*7000 

vonatooo 
voimooo 
•/a nsooon 
vo 11 s 1000 
0 1 152000 
01151000 
V0 1 15*000 


*a» 1 uuu.CHKLaj 

ir - Eson.scsk.ttsitiT /» ir aoi atuutsTto, stir. 
*is 2 rata so to riao.r tios 

*a» a 1 ■ laost (suite, * ij 

/• riao tmi tgusL sioa. 


01155000 
VO 1 156000 
01157000 
01150000 
VO 1 159000 


/»• "ssiaoti* • vooooiooo 


star levs* atsx 


4*7 

2 

If X • 1 

/• ao tgusL sioa is sa taaoa. 

VO 11*0000 

4AU 

4 

THEN GO TO ERROR; 


011*1000 

Uo;y 

R 

SiRARG * 3UNSIR ISTRINC, 

1) i 

/• CLISk OUT UP TO TUI IJUSL sioa. 

01161000 

V011*]000 

4 j 0 

R 

PiNil.PXEUU 

t > VCR m (SIRING, • , 0 

•is 

0116*000 

011*5000 

4J1 

d 

XT l 0 

/• otuTt sai itsoiao otLiaiTtts. 

vo 11**000 

4 JR 

2 

rata stains > suasra (stmiss, in 

011*7000 

4Ji 

4 

stu_sraitu • siaiao n • 

»0'S 

/• it roLLoaiao sesas, ana aioata 
/• v slues to rsiLiao sesas. 

01I6S000 
V0 11* 9000 
V0 1170000 

* 1 * 

4 

£ - XNJCX (3CAM..3TRIRC, • 

•is 

01171000 

443 

l 

J « INDEX (SCAR^STRIRG, • 

,'ls 

01172000 

4io 

d 

K * XNDEI (bCAK.STIXlia, • 

<•15 

0 1171000 

4J7 

d 

L • IkOSS (SCSk.STklkO, • 

)') 5 

/• nao riasT occuaasact or isch 
/• ouiaiTta. 

0117*000 
V0 1175000 
V0 1176000 

4JN 

d 

X « .114 (I, J, K, L) * 1; 

/• nao rat nasi oati liss oat 
/• is ritui uaoia. 

01177000 

V0117MOOO 

V01179QOO 

4 

d 

if 1 > itaatH (Siaiao) 

/* ir ill at roots is laost itsiL- 

voiiaqooo 

44 0 

d 

THAR GO TO INMOR{ 

/* las oats at sooto, taaoa. 

4/0 1 16 1000 

441 

d 

T1£LU « SUtfSTR (STRING, 1 

. ns 

/• etTtscT iat atsuiT. 

01H2000 
VO tit 1000 

44E 

d 

STRANG • 31143X4 (STRING, 

x*H s 

/• Dim! rao'ifssto rstt or sraias. 

0118*000 
1 V01185000 

44 J 

d 

DfcLiflXTER - SUDSTR (STRING, 1, 1) t 

/• RETURN DILIflITXI SEPARATELY. 

0118*000 
VO 1187000 

444 

d 

GO TO EXIT; 

/• DAB-A-DX-OAN-A-DA-A-OATM ALL, 
/• POLES. 

*/0 1188000 
V01 189000 

44* 

d 

44404 X 

TUT TILL (PRINT El) 

EDIT (•*•••♦ ERROR 

/• output caypTic taaoa message. 
it stoat csao>) im ; 

01190000 
V0 119 1000 
01192000 

444 

d 

3KXP_C0UNT • J; 

/• raiPLt sp set atrott am csto. 

V0 1191000 

**7 

d 

CKMOE_OCCURAED • *V •• 

/« SET ERROR INDICATOR. 

voimooo 

444 

2 

EXIT: 

END TlEiaD^SCAN; 


01195000 
'•/o 1196000 
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/• • 


"lUIlPII" 


• V00001000 


jtr* L*m i mi 


**v i jcl.slaii iiuciddiii ii*730s 


/• mu iloo kill im.ii tniousi vohpiooo 

/• 00 CAIO* mm TNI COIN V01199000 
/• NHOII NANI (0* INITIAL 1*11) VU 1130090 
/• IN *10*13 1* "DONAH" I* V0 119 1900 

/• rouio. tin omit* iaianitiivoiioiooo 
/♦ IS ININ POOIO ANB TNI IICOID V* 110)090 
/• L*V»L or INI BATA SIT NANI V0 1201000 
/• IS IITI ACTIO AID IITUIIIO V0 1200000 
/• I* *0ilAN*". IP A NINBII V0 120*000 
/• NANI IS IIISIIT, IT IS V01207100 
/• IITUIIIO II "HUH". VO 1201000 

/•••••••• •••••••••••••» •••••••••••••/imioioOU 


*50 

2 


(OOIANI) ; 


01210000 




/• SA VI LENGTH 

or PDiANi to it 

VO 121 1000 

*51 



/• SCANNED . 


VO1212000 

4 

IIA9.T0.I1IC > 01; 

/• *1 AO* SHOULD 

ADVANCE TO HIT 

VO 121 2000 


2 

HAP.ra.ioiJcL • on 

/• NO* -CONI I IS A 710* CAMP, 

VO 121*000 

45J 

2 

IIAP_tO.HOI.COM TIN • Hi 


01215000 

454 

2 

OINAN* • • •; 

/• CLSAM OSIANI 

IIP 11*11*. 

V« 121 *000 

455 

4 

/unman - • *; 



01217000 


lb* 2 

*07 2 

*51 2 

*5* * 

*•0 2 


DDHIU.LiUCIJ 

(.ALL IIADIN; /• Olt AIOTNI* CAIO. 

it ■> jcl /• ir it *u* out or jcl caipi, 

/• HIT. OADOI. 

INI! SO TO JCL.IUI; 

IT SUNSTB (CANO, I, DDNAM.LIIStH) « OOIANI 
Till 00 TO PONAH.CNICIi 

/• ir ms AII*T IT, LOOP. 


01211000 
V0 121 0000 
V0 1220000 
V0 122 1000 
01222000 
01222000 
0122*000 
V0 1225000 


** 1 


*•2 

•ki 

«*« 

**S 

«** 

«*7 

«kl 

«*0 

*70 

*71 

*72 

*7i 

*7* 


2 


2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


PSlANS.SCANl 

I • 1*011 <CAI0, 


If 1 « 0 


TNI* 00 i 


1 

1 

1 


I • I 
00 TO 
IIP; 

1 ■ IIOII (CAIO, 


•DINAH**) I 

/• mo OSIANI* lAlANITII, 

/• ir *i rouio it, niaicm. 


♦ 2) 

riiD.riiiooi 

•Oil**) 1 /• ALSO SHI DSN* A CNANC*. 


IT I — 0 

this oo.io ruu rmooi 

IT COST I IUA II UN COLUMN • • • 
TNI* SO TO JCL HIT; 


/• It IS' IE NOT COItllUIO, HIT. 
IIAO_rO.ION.CONU* • '0'*|/* HAP m HIT CAIO INACI. 
HA0_T9.I0I.JCL * * 0* Nj 
CALL HAOEIj 


0122*000 
01227000 
*/0 122*000 
V01220000 
01220000 
01221000 
0 1222000 
01222000 
V0 122*000 
01225000 
0122*000 
01227000 
01211000 
V0 122 0000 
V0 12* *000 
012*1000 
012*2000 


/• • "sax nil * » vooooiooo 


SINT LIVE! NIST 


*75 

2 

ir ALL.ooie /• 

EOF HEMS IS 1NROB; fill. 

•/o 12* 1000 

474 

2 

THEN SO JO JCL.MEIT; 


012**000 

*77 

2 

GO TO USNABJf.SCAi; /* 

LOO* AND TIT AGAIN. 

*/012*5000 

*70 

2 

FilD.PERIOD* 


012**000 



STUNG • SUISTH (CAIO, !♦») ; 


012*7000 



/• 

ADVANCE FAST DSN* OS DSMAHI*. 

»/0 12*1000 

*70 

2 

I • HUH (STUNS, •.*) ; 


012*9000 



/• 

nip TNE HIST HI 100. 

*/0 1250000 

440 

2 

ir i • i i i > t 


01251000 

4U1 

2 

TUI SO JO II TIACT. OSIANI ( 

01252000 



/» 

IF MO SECOND-LEVEL MSEC, OCT 

VO 1251000 



/• 

rilir-LIVIL NANI. 

V0 125*000 

4tu 

2 

STUNG « SUISTH (STUNS, 1*1) 

« 

01255000 



/• 

ADVANCE PAST UIST LEVEL IAI1 

V0 125*000 



/• 

AND FNHIOD. 

VO 1257000 

44J 

2 

E1TIACT.PS NINES 


01250000 



sPACfc.UIPISS ■ •0*1; /• 

riELo.scAN rui usnane iitnout 

V0 1259000 

4M4 

2 

NO U A L.SCA N_HL GU tSl • 

SFACE-BV FASS OR SUOAL-SSAICH, 

. V012*0000 

445 

2 

CALL UELO.SCAI; 


012*1000 

446 

2 

IF J£2«01t.CCCUtH£0 /• 

HIT 0M NINON. 

V0 12*2000 

*07 

2 

THEN SU TO JCL.lIIIi 


012*1000 

404 

2 

DS NANI • HELP; /• 

STORE RESULT* 

V0 12**000 

409 

2 

ir ULLiNin* — • (• /• 

XT NEAML* NANI IS NOT PIIIEIT, 

1/012*5000 

490 

2 

THEN SO TO JCL.ElITi/* 

SET III OUT* THEII. 

V0 12**000 

49 t 

2 

CALL FIELD.SCAN; /• 

SCAN TON IIRN1I HARE. 

•/01247000 

492 

2 

IF MNHON.OCCUNRED /• 

24 IT ON ERROR. 

V0 12*1000 

*02 

2 

THEN SO TO JCL.ElITi 


012*9000 

494 

2 

ntaaiu « field; /• 

sroil INSULT. 

*/0 1270000 

*05 

2 

JCL.ElITi 


01271000 



END JCL. SCAM; /•« 


• V0 1272000 


/ r • 


< j t l i g ( i • 


• m/00001000 


3JW BtttL Hit 


ovk i scot.. 101**1**21 fioLiuuiiij /•••••••••••••••••••••••••••••••••••/() lit jaoo 

/• THIS PMOCEUUIS IS ATTACMID IS M/0127NOOO 

/• i juntas*. it stasis tms */o 1271000 

/• suit SOUTISI NNICN MMTIMN c/nttunnn 

/• »INDK*_SNTNI_JSNUBNM XO SETCM*/0 1277000 

/• SALS ar tss solt IICONBS m/01279000 

/• cobbsctid it t ms soTMii task. */ o 1279000 

/• sun rust smtsms •imoii. */o 1210000 

/• tkistss* to rust sic* entmi.m/owmiooo 

/* IDEM SUIT SMTUMMS MS riMISN M/012M2000 

/• art ink pminiqut is o ssit. vo 1211000 




»97 2 it Ulu 01211000 

iOMtSD.SMIMt (*1 CMSM (MM) COkTMOLLID, 0121*000 

/* IS MBS tu MOLD S1IST COLUMN OS M/Q12N7000 

/• IMOIS SMTMISS OS SACK SSOS. M/01211000 
MIJHT.MSCOMB BUS SOMT.SMCOMl), 01219000 

/• JTMUCtUMK to MMISS US SSTSI SOI M/01290000 
/• MiUHT COLUMN OS SSOS. M/01291000 

SIOMT.MKOIO.SMIS U SSIMCU NIUHI.MICOkD CSSS (MM)) 01212000 

/• STMIMS or SOIL StIUCTUSS. M/0 1292000 


M9M 2 call BMtSMXO |SOMT„CONTMOB, kBLOBD_COMTN01, 102M00, 0129*000 

S0NT_N*IUIN_CU02, ikDtl_*MTM1_SMNBSN, INOII.PIIMTII) ) 01291000 

/• CSBB SOkt. MHICM MIBB USS M/0129MOOO 

/• *l*DNl_tMTAI SKMBSI" tO OSt M/01297000 

/• SECONDS, ■INBSS.PSIMIIM* TO VO 1290000 

/• SMI NT THIS. M/01299000 

M99 2 IS SkTSI.CUOMt <• LIMES P EM PADS 01100000 

/M MS MUSt MOM SBJSM OUT TMS BASt M/0 110 1000 
/M SAMS. AMS MS MOBSISO ON TMS M/01202000 

700 2 THAN 00) /M SIMSt COLUMN OF TMM SA0S7 M/01201000 

/• IS SOI */0 110M000 

701 2 1 BASt.SlIMt • 0 )/M MM MILL STASt SMIMXIMS MUM M/01101000 

/• IMS riost CLSMSMT OS MSOSTIO. M/0 110*000 

/• EMf MI". M/O1J07000 

702 2 1 MlUMl.kSCOMU AkEA * SO*tEU_ENT*I (SMTMI COUNT) ) 01101000 

/M SAMS BAST SMTMI FOI THUI* M/01109000 

/• TAM. m/o 1)1 0000 

701 2 I AMD) 0111 1000 

10M 2 SLIM SMTM1.COUMT • BINBS.PSN.PAOE j 01112000 

/• BBSS, SBT BOOT TO STOP AT PASS M/0 111 1000 
/• ISO. M/0 111*000 

707 2 DO 1 ■ BtSI SMTSIMl TO SMTMI COUNT) 01211000 

/M BOOP SOM MEN AIMINO SMTMISS. M/0 111*000 
10* 2 1 SONT_NSCOMO_ANEA • SONT20_ENtlT (I) ) 01117000 

/M PUT SMTMI INTO STIUCTUSS. M/01111000 

107 2 1 rut SILA (Ski Ml MM) /• SUNT IMS SMTSI. M/0 1119000 

MBIT (SOMT.MSCOSO) 01120000 


/*• “sciiusi" m M/ooooiooo 


STB2 BStSL MSSX 

01221000 
M/0 I222Q00 
01121000 
M/0 1120000 
M/01221000 
M/0 112*000 


10 M 

2 1 

(SKXtf (SKltf_COUHl) 
sai^couni • ij /• 

, 2 A; 10), A (9) , A (*} , A (0) ) ) 
IN5UIS SIMSLB SPACE. 

109 

2 1 

END; 


110 

2 

CALL PimjfHUBB.XAD} /• 

00 POINT LAST TMUNB IASS. 

111 

2 

rum suaxAu bn mi; /• 

S MIS UP AMIAT. 

512 

2 

ULTUitN j /• 

SUB-TASK IS BOMS. 




/♦ • 


■ S 0 I N 0 * A * 


* 4/00001000 


ilRl LEVEL NUI 


i*DL*_iNfHI_.»LNnNi 


MUCIDJ1I cut! (44) i 0 1327000 



/• i * is noc* is *17*1*0 is son 4/01129000 
/• tut point is. it hits ro* 4/01330000 

/• th* rothin tis* ro couplets 4/oiijiooo 

/* th* seat nicohd. 4HC* tni 4/01112000 

/* hicono is tomo out tni */oii))ooo 

/♦ NOTHIN IS SISIALIU TO FI0CISS4/0 1)14000 

/• A NOTHIN »*0 4* SITU** TNI 4/01)15000 

/• ISt'OlU to SOST/UNG*. 4 HIS 4/01)1*090 

/• Ul Sit 0105 HITS SUN mSIO.t/OIJJTOOO 

/• riiHimoii »si no* to 4/ou)*ooo 

/* print *md in* run iituin 4/01119000 

/* IS 1*0*. 4/01)40000 

/••••• **#*#**##*#*####*#**##4/0 1)» 1000 


4AIT (HICOND.cININATND) ) /• 4AIT TOR NOTH** TO GINIIATI A 4/01)42000 

/• SON! SHIN 1 . 4/01)4)000 

conflation (0*0040.0*4*4*7*0) * •u's; oii*«ooo 

/* NLSII *0* 4* IT 00 <*0040. */0 1145000 

It STATUS (4*C0 40.0*4*4 AT 10) 0 01)4*000 

THIN 00 TO An.TSASSNITTIO) 01)47000 

/« If ALL L4T4ISS NAVI HUN T4AIS- 4/01)40000 

/4 NITTIO, NNANtN. 4/01)4(000 

SOHt.STlISd > SORT. 4*0040. A 4* A) 01)50000 

/4 con OUT 4*4 UCOIO. 4/01151000 

CONFLATION (IECON0.ACCIPTID) • <1*4) 01)52000 

/4 LIT N0T4II 00 TO 404* 0* TNI 4/01)5)000 
/4 lilt ONI. 4/01154000 

CALL A4AI5AC (12)) /• SIT HI1UI4 TO SNON IIC04D 4/01155000 

/4 IS CONUS. 4/01)54000 

4*1044 (S04I.ST4IIS) ( /4 4*1044. SZ4I4U TO It SOITIO. 4/01)57000 


ALL_.'IA4Snm*0: 01)5*000 

IAI4T.C0J4T • -1) /• SIT UT TOR PN1NIID OUTOUT. SIT 4/01)5(000 

/• IRTIV.COUNT TO IIOICATI »/0 13*0000 

/* FAGS 4JICTI0N IIOUIUD. 4/0.11*1000 

JUURH.jfOT > LINIS.TIS.OASI - 1} 011*2000 

/• imm last 2 Lius roi truss */oijs)ooo 

/• TANS. 4/011**000 

LlU2.rL4.rAS* • LIIIS.TLI TASK - 9) 011*5000 

/* oiCHtAsi ’•liiis.fsi.fagi* si */oiis*ooo 

/* COUNT or 4IA0II S, ILAIK 4/011*7000 

/4 LINAS. ITC. 4/011**000 

CALL 1U4TSAC (4); /* SIT IITUIN COD* TO S404 ALL */013*9000 

/• IICOIOS rASSID. 4/01)70000 

HLIU44; /• NITUIN. 4/01171000 

*40 INULA. *4741.5140*4) /***********************************/0 117 2000 


0 14 0**" 


• 4/00001000 


SIR') LIVIL NIST 


ANULA.rilNIIU riOCIOUN* (SONT.SIIING IITUSNID)) 01)7)000 

/ •• •• 444*4*4444444444444444444444444/0 1)7*000 
/* THIS HLOCN IS CALLIO IT TNI SOII*/0 1)75000 
/* lOUTIH* AS HIT FOIST 25. 4/01)70000 

/* IT MINTS THI FAG* IN A ISO* 4/01)77000 

/« COLORS ruilAT. LIFT" HAND 4/01374000 

/• INTIUS All SAVSO UNTIL TNI 4/01179000 

/* COH RESPONDING NIGHT-HAND 4/01100000 

/* IN TNI IS All IHCIIV1D, AT 4/01301000 

/* 1NICN rifll NOTH IN* PIIITSO. 4/01302000 

*4/0130)000 


UICLA1* 

20H1.STRING INTUHNEO C4AI (44)1 

/• DSFINI PARARETEI. 


01)4*000 
01)0 5000 
4/0130*000 


53U 3 

5)1 1 

53) 3 


5)4 3 

535 3 

5)4 1 


IF LNTnI.i'OUNT <0 /* IF THIS IS TUI MIST TIRE 4/01107000 

THln 00) /* THROUGH t 4/01)04000 

CALL 1HITSAC (4)) 0130*000 

/• SET IITUIN CODE F 01 NOIHAL. 4/01390000 
ALLOCATE SONTED.INTIT (LINIS.FII PAGE) ) 01391000 

/* ALLOCATE CONE FOE SUM HUH 4/01392000 
/• ISO UGH NOON TO HOLD LEFT 4/01393000 

/* HALF or PAGE. 4/01394000 

GO TO OO.HIADIH) 013(5000 

IND) /* GO MINI FAUN HEADS!. 4/0139*000 

ISm.COUNT « ENT RE-COUNT ♦ 1| 01397000 

/* ADVANCE TO NEAT MTU. 4/01390000 

IF INIBT.COUNT > UUS.FIH.FAGI 01399000 

THIN GO TO FHUI.IIIT.LIU) 01400000 

/* AF HE* HE 01 THE SECOOO COLUHH, 4/01401000 

/* HHAHCH. 4/01402000 

sunteu.enthv (hntu.count) • soht.sihihg.eeiueneoi 01*03000 

/• SAVE MIST IH STEIHG. 4/01404000 

GO TO (HINT. EXIT; /* THAT'S ALL U 00. II THAT CASE. */01«05000 


naNI.UAT.UNLS 0140*000 

UFT.INTHt • ENINt.CUUNT - LINIS.FII PAGE; 01*07000 

/• CALCULATE INTHI NUNOEB FOE */01400000 

/• LIFT ENIII TO HE FEINTED. 4/01409000 

II LIFT.ENIHI > LIN E5.PEH.PAGI 01*10000 

/• IF NE' VI FILLED THE FADE. 4/01*11000 

THEN SO TO TNUN1.TAN) 01*12000 

/* THIN H1ANCN. 4/01413000 

SONT.HLCONO.ANIA « SOlTIO.INTHI (LIFI.INTNV) j 01*1*000 

1IGHT.4IC08U.AN AA • SONT.SINING NITUINID) 01*15000 

/• PUT LIFT AND SIGHT ENT1IES INTO 4/01416000 
/* STIUCTUHIS FOB FIUTING. 4/01417000 

PUT FILE (PHINTIH) /* FHIHT THE LIHE. 4/0)4lH000 
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/• • 


■ i u 1 4 u 4 I • 


» vaoaoiooo 


JiK .(lid 4401 

KBit (iOIT_4(oO40, 4IU4f_4BOU40) 01(1*900 

1**l4|*«14_C004t). 8 () 4(10), 4(0). 4(4), 4(4), I ( 1/) ) ) j0l«/0«0* 
54? 4 ((14.COOIT « 1) 011/1000 

’>** 4 00 TU l4ill.lllT) /• 00 44CI fC» Blit OBI. 4/OHZ/O90 


4 44914.(441 91444990 

44fck 44I»T.I4U14_1*4, /• 49t HIM* T44S 01 1401 40T10I. VO 11/(000 


440 4 00.4140(41 01949990 

4u/ fill (444 IT 14) /• UK1 440 HU) C019I4 4I4BIII. 4/011/1000 

(Oil (• mi 4 4444(1 OBI Stir 4401 C44B014/7000 

4(41 0144411 004 Stir 4401 C40D') 014/0000 

(L1IIOI, 4|| /• 4014 TI4t HII 441410 Til VO U/fOOO 

... /• "140440 !• COOOIttOI. VOIIJOOOO 

001 j 44 44I.C094T • 1} /• llllt 104 lilt 4401, 4/01(11000 

54* 1 .<04/W_»4t4« (1) • 104T_4tOl40. 4ITUI4IO) 01(1/000 

/( itisi nut ms. vo Kiiooo 

551 1 4*14_COO»t • /) /( OJUitI 44441 4(141 Bill. 4/010(000 


55* 1 4414(.l4tt) 0 1(14000 

411004) 01111000 

05 1 440 44041. 441 4t II) /44(4(44(4(44444(4444444(444(44M444/01(1I00» 


i 

i 

s 


/• • 


■4014011" 


• vossoiooo 


itn um nit 

5*4 / 4(4 4 1. null. (141 440010001) /(4((44444(«(MM((((»4(44((4((M(4 4/0 1(14000 

/• till 4L0CK 4IIITI tli TIUII till */0 1(11000 

/• to* in nut no uit non vokioooo 

/• HIM 01 til 4*01 It til I/O 1*1 1001 

/• OOttOI or til 4101. VO 1*9 4000 

/••••••(•••••••♦••I* ••• ••••••• • ( 94 4 "/ 0 11(1000 



51? J 

554 1 


55* 1 


iU4f.41COIO.4414 • 40BT40.IOT01 (1)1 019(1000 

/• rut rill t um mo moctuii. vomsooo 

401 mi (411 It II) /* Hilt III TIUII Till. V0 1(1*000 

Wit (401t.IIC010.lm, 4Olt n SSCO10./f II, 019*7000 

klOlt.UCOID.mi, I194T.IBUJID.ITII) 01*91000 

(LiiniTiuoi.iior) , coiuaimi), i(i), 019**000 

4414(0) , COLUII (1 11) , 1(1), 01*50000 

SB19(1), COUiltdU), 4(8), 01*51000 

4414(0), 0010*4(111), 4(1)) I 0195/000 

410 44111 (HU14.T44) /•444*4*(****44*4*44*(*4(*4((***444*/0 115 J000 



01(5(000 


540 / 


440 404T.I4T4I44C4I / 


«/0 1(55000 


9 
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•Skllklll* 


• V 409 S 1000 


tin um tin 

5 ti i r.jcunjti {iitiri.imw, sui.smiu) iiitii miss oustooo 


/•••••*•*••.••»•< ............... .../J W57JUJ 

/• IMIS HOCK iiilhtTU IMS VO 1*5*000 

/• "IIIIH 1 rOICTIdl J.ICM IS VO 1*7.050 

/• * *uurn roierior sirs vou.oooo 

/• ri/i »*»»ios s iiiuiii if). vout iooo 

/* it n uclooio i U mi rai vouttooo 

/• luiuiv uioti tiiiist is uo voutiooo 

/• SHOULD IS lllvilll UTU TO */0 11*4000 
/• OSS ns DUilTJ* IlSStOI. VO 1**5000 

»... ....... tmsooi 


an i 


utcLiit 

mirijriiN ciu noo) tsiiiio, 

/* sriisa to it sisichid roi vuio 
/• css items, 

sui.irsite cuts (id) mini., 

/* miiM coittima iilio c*u- 
/• tkius coisipsiio scctmiu 
/« is ■*i*jri_mi*a*. 
ciiiscm cNs i n> mric, 

/• hois ms. 

l*. i) siissi mso sfsucj 

/» ion isiisiisi) s is liioti 
/• or •iMiruniw'i i is 

/• TNI CHtltCTtl or 

/* 'iitiri.titui* cuiumi 
/• ima nocsssto. 


out loot 

out 1040 

•/out 1040 
«/0 U 70000 
OIITIOOt 
s/4 UTtOOO 
V01I7J00I 
•/0 UTtOOO 

outsooa 
•/o UTtOOO 
OUTIOOO 
V4U7I000 

VO UTTOOO 
•/outoaoo 
•/out 1000 

VO Ul 1000 


III t 

It* 0 


I • I) /* It TILL STSIT lift INS MIST V0 1*1)900 

/* ciiiscm ii ■uiiiri.iiiiia*. vouitooo 

i * uioti imiM.smiai) 0 1**5000 

/* ISIt SIIIIO UIOTI TO IIU Hill VOUItOOO 

/. it'll rituo. vo ui 7000 


5ts i 

its S 

5t7 0 

Ski 0 

St 0 I 


579 t 

S71 I 


tools 


IT I > I /• If It'll 0011 (01 1 - 0 ), 

in «• moii (0) s /» sstici nut o< iisult 

klSISCTII • SUliTI (llim.STlIH, I. 1)1 

/* DO OIT I HI stir CISISCTtl. 
ir non (too siiiio, cisisexti) • o 


• 0 . 


nti itfou (i)i 


ouuaoo 

VOUITOOO 
*/0Ut 0000 
OUTIOOO 
t/o UTtOOO 
OUTIOOO 
VO UTtOOO 


I « I * I) 

00 TO toot) 


/• II Tit CISISCTtl IS IISSIIO IS 
/♦ Til LIST or TIUD CMSISCTttS.VOUTSOOO 

/• itrou us rosmoi. vouttooo 

/• list 00 LOOK ST i It HIT Oil. VOUTTOOO 

OUTIOOO 



/* • 


seiioii* 


'00001000 


STIT LSVIL HIT 

071 I 111) Uillti ........t..* ./OUTIOOO 


01500000 


01501000 


57 J 


no soiioti) 
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►/O 1542000 
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APPENDIX C 


FLOW CHARTS 
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